Re-enable orphan warnings

Many modules feature the `{-# OPTIONS_GHC -fno-warn-orphans #-}` pragma.
In many cases, this pragma has no effect (because there are no orphan declarations
in the module). In some other cases, a little bit of refactoring could make them
useless.

This commit removes the pragma only in those modules where removing it
changes absolutely nothing.

src/Gargantext/API/Context.hs

@@ -9,8 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
 {-# LANGUAGE ScopedTypeVariables  #-}
 {-# LANGUAGE TemplateHaskell      #-}
 {-# LANGUAGE TypeOperators        #-}

src/Gargantext/API/Metrics.hs

@@ -11,9 +11,7 @@ Metrics API
 
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
-{-# LANGUAGE TypeOperators      #-}
+{-# LANGUAGE TypeOperators #-}
 
 module Gargantext.API.Metrics
     where

src/Gargantext/API/Node/Contact.hs

@@ -9,8 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
 {-# LANGUAGE ConstraintKinds      #-}
 {-# LANGUAGE ScopedTypeVariables  #-}
 {-# LANGUAGE TypeFamilies         #-}

src/Gargantext/API/Node/File.hs

@@ -8,7 +8,7 @@ Stability   : experimental
 Portability : POSIX
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans -fno-warn-unused-matches #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
 
 {-# LANGUAGE AllowAmbiguousTypes     #-}
 {-# LANGUAGE TypeOperators     #-}

src/Gargantext/API/Node/Get.hs

@@ -11,7 +11,6 @@ Polymorphic Get Node API
 
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans #-}
 {-# OPTIONS_GHC -fno-warn-deprecations #-}
 
 {-# LANGUAGE TemplateHaskell    #-}

src/Gargantext/API/Node/New.hs

@@ -14,7 +14,6 @@ Async new node feature
 
 {-# LANGUAGE TemplateHaskell    #-}
 {-# LANGUAGE TypeOperators      #-}
-{-# OPTIONS_GHC -fno-warn-orphans #-}
 
 {-# LANGUAGE IncoherentInstances #-}
 module Gargantext.API.Node.New

src/Gargantext/API/Node/Update.hs

@@ -9,8 +9,7 @@ Portability : POSIX
 
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-{-# LANGUAGE TypeOperators      #-}
+{-# LANGUAGE TypeOperators #-}
 
 module Gargantext.API.Node.Update
       where

src/Gargantext/API/Routes.hs

@@ -16,7 +16,6 @@ Portability : POSIX
 {-# LANGUAGE TypeOperators        #-}
 {-# LANGUAGE TypeApplications     #-}
 {-# LANGUAGE UndecidableInstances #-}
-{-# OPTIONS_GHC -fno-warn-orphans #-} -- instance HasSwagger (WithCustomErrorScheme GargAPI)
 
 module Gargantext.API.Routes
       where

src/Gargantext/API/Table.hs

@@ -22,8 +22,6 @@ Node API
 
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
 {-# LANGUAGE ScopedTypeVariables  #-}
 {-# LANGUAGE TemplateHaskell      #-}
 {-# LANGUAGE TypeOperators        #-}

src/Gargantext/Core/Text/Corpus/API/Arxiv.hs

@@ -9,7 +9,7 @@ Portability : POSIX
 
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans -fno-warn-unused-top-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-top-binds #-}
 {-# LANGUAGE ViewPatterns #-}
 
 module Gargantext.Core.Text.Corpus.API.Arxiv

src/Gargantext/Core/Text/List/Learn.hs

@@ -11,9 +11,6 @@ CSV parser for Gargantext corpus files.
 
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
-
 module Gargantext.Core.Text.List.Learn
   where
 

src/Gargantext/Core/Text/Ngrams.hs

@@ -8,7 +8,6 @@ Stability   : experimental
 Portability : POSIX
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans   #-}
 {-# LANGUAGE Arrows                 #-}
 {-# LANGUAGE FunctionalDependencies #-}
 {-# LANGUAGE QuasiQuotes            #-}

src/Gargantext/Database/Action/Flow/Utils.hs

@@ -9,8 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
 module Gargantext.Database.Action.Flow.Utils
   ( docNgrams
   , documentIdWithNgrams

src/Gargantext/Database/Action/Metrics/Lists.hs

@@ -8,9 +8,6 @@ Stability   : experimental
 Portability : POSIX
 -}
 
-
-{-# OPTIONS_GHC -fno-warn-orphans        #-}
-
 {-# LANGUAGE Arrows                 #-}
 {-# LANGUAGE ConstraintKinds        #-}
 {-# LANGUAGE FunctionalDependencies #-}

src/Gargantext/Database/Action/Node.hs

@@ -8,9 +8,6 @@ Stability   : experimental
 Portability : POSIX
 -}
 
-
-{-# OPTIONS_GHC -fno-warn-orphans        #-}
-
 {-# LANGUAGE Arrows                 #-}
 {-# LANGUAGE ConstraintKinds        #-}
 {-# LANGUAGE FunctionalDependencies #-}

src/Gargantext/Database/Query/Filter.hs

@@ -8,10 +8,6 @@ Stability   : experimental
 Portability : POSIX
 -}
 
-
-
-{-# OPTIONS_GHC -fno-warn-orphans   #-}
-
 module Gargantext.Database.Query.Filter
   where
 

src/Gargantext/Database/Query/Join.hs

@@ -11,9 +11,6 @@ Multiple Join functions with Opaleye.
 
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans        #-}
-
-
 {-# LANGUAGE Arrows                    #-}
 {-# LANGUAGE NoMonomorphismRestriction #-}
 

src/Gargantext/Database/Query/Table/Context.hs

@@ -8,11 +8,9 @@ Stability   : experimental
 Portability : POSIX
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans        #-}
-
-{-# LANGUAGE Arrows                 #-}
-{-# LANGUAGE ConstraintKinds        #-}
-{-# LANGUAGE TypeFamilies           #-}
+{-# LANGUAGE Arrows          #-}
+{-# LANGUAGE ConstraintKinds #-}
+{-# LANGUAGE TypeFamilies    #-}
 
 module Gargantext.Database.Query.Table.Context
   where

src/Gargantext/Database/Query/Table/ContextNodeNgrams.hs

@@ -9,9 +9,6 @@ Portability : POSIX
 
 -}
 
-{-#  OPTIONS_GHC -fno-warn-orphans  #-}
-
-
 module Gargantext.Database.Query.Table.ContextNodeNgrams
   ( module Gargantext.Database.Schema.ContextNodeNgrams
   , queryContextNodeNgramsTable

src/Gargantext/Database/Query/Table/ContextNodeNgrams2.hs

@@ -9,8 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
 module Gargantext.Database.Query.Table.ContextNodeNgrams2
   ( module Gargantext.Database.Schema.ContextNodeNgrams2
   , insertContextNodeNgrams2

src/Gargantext/Database/Query/Table/Node.hs

@@ -8,8 +8,6 @@ Stability   : experimental
 Portability : POSIX
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans        #-}
-
 {-# LANGUAGE Arrows                 #-}
 {-# LANGUAGE ConstraintKinds        #-}
 {-# LANGUAGE FunctionalDependencies #-}

src/Gargantext/Database/Query/Table/Node/Children.hs

@@ -8,9 +8,7 @@ Stability   : experimental
 Portability : POSIX
 -}
 
-
-{-# OPTIONS_GHC -fno-warn-orphans        #-}
-{-# LANGUAGE Arrows                      #-}
+{-# LANGUAGE Arrows #-}
 
 module Gargantext.Database.Query.Table.Node.Children
   where

src/Gargantext/Database/Query/Table/NodeContext.hs

@@ -11,8 +11,6 @@ Here is a longer description of this module, containing some
 commentary with @some markup@.
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
 {-# LANGUAGE Arrows                 #-}
 {-# LANGUAGE FunctionalDependencies #-}
 {-# LANGUAGE LambdaCase             #-}

src/Gargantext/Database/Query/Table/NodeNode.hs

@@ -10,8 +10,6 @@ Here is a longer description of this module, containing some
 commentary with @some markup@.
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
 {-# LANGUAGE Arrows                 #-}
 {-# LANGUAGE FunctionalDependencies #-}
 {-# LANGUAGE LambdaCase             #-}

src/Gargantext/Database/Query/Table/NodeNodeNgrams.hs

@@ -9,8 +9,6 @@ Portability : POSIX
 
 -}
 
-{-#  OPTIONS_GHC -fno-warn-orphans  #-}
-
 module Gargantext.Database.Query.Table.NodeNodeNgrams
   ( module Gargantext.Database.Schema.NodeNodeNgrams
   , queryNodeNodeNgramsTable

src/Gargantext/Database/Query/Table/Node_NodeNgramsNodeNgrams.hs

@@ -21,8 +21,6 @@ Next Step benchmark:
 
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans   #-}
-
 module Gargantext.Database.Query.Table.Node_NodeNgramsNodeNgrams
   where
 

src/Gargantext/Database/Query/Table/NodesNgramsRepo.hs

@@ -9,8 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans   #-}
-
 module Gargantext.Database.Query.Table.NodesNgramsRepo
   where
 

src/Gargantext/Database/Schema/Context.hs

@@ -8,8 +8,6 @@ Stability   : experimental
 Portability : POSIX
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans        #-}
-
 {-# LANGUAGE Arrows                 #-}
 {-# LANGUAGE ConstraintKinds        #-}
 {-# LANGUAGE FunctionalDependencies #-}

src/Gargantext/Database/Schema/ContextNodeNgrams.hs

@@ -9,8 +9,6 @@ Portability : POSIX
 
 -}
 
-{-#  OPTIONS_GHC -fno-warn-orphans  #-}
-
 {-# LANGUAGE Arrows                 #-}
 {-# LANGUAGE FunctionalDependencies #-}
 {-# LANGUAGE TemplateHaskell        #-}

src/Gargantext/Database/Schema/ContextNodeNgrams2.hs

@@ -9,8 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
 {-# LANGUAGE Arrows                 #-}
 {-# LANGUAGE FunctionalDependencies #-}
 {-# LANGUAGE TemplateHaskell        #-}

src/Gargantext/Database/Schema/Node.hs

@@ -8,9 +8,6 @@ Stability   : experimental
 Portability : POSIX
 -}
 
-
-{-# OPTIONS_GHC -fno-warn-orphans        #-}
-
 {-# LANGUAGE Arrows                 #-}
 {-# LANGUAGE ConstraintKinds        #-}
 {-# LANGUAGE FunctionalDependencies #-}

src/Gargantext/Database/Schema/NodeContext.hs

@@ -11,8 +11,6 @@ Here is a longer description of this module, containing some
 commentary with @some markup@.
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
 {-# LANGUAGE Arrows                 #-}
 {-# LANGUAGE FunctionalDependencies #-}
 {-# LANGUAGE QuasiQuotes            #-}

src/Gargantext/Database/Schema/NodeContext_NodeContext.hs

@@ -9,8 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
 {-# LANGUAGE Arrows                 #-}
 {-# LANGUAGE FunctionalDependencies #-}
 {-# LANGUAGE QuasiQuotes            #-}

src/Gargantext/Database/Schema/NodeNgrams.hs

@@ -11,8 +11,6 @@ NodeNgrams register Context of Ngrams (named Cgrams then)
 
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
 {-# LANGUAGE Arrows                 #-}
 {-# LANGUAGE FunctionalDependencies #-}
 {-# LANGUAGE QuasiQuotes            #-}

src/Gargantext/Database/Schema/NodeNodeNgrams.hs

@@ -9,8 +9,6 @@ Portability : POSIX
 
 -}
 
-{-#  OPTIONS_GHC -fno-warn-orphans  #-}
-
 {-# LANGUAGE Arrows                 #-}
 {-# LANGUAGE FunctionalDependencies #-}
 {-# LANGUAGE TemplateHaskell        #-}

src/Gargantext/Database/Schema/NodeNodeNgrams2.hs

@@ -9,8 +9,6 @@ Portability : POSIX
 
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
 {-# LANGUAGE Arrows                 #-}
 {-# LANGUAGE FunctionalDependencies #-}
 {-# LANGUAGE TemplateHaskell        #-}

src/Gargantext/Database/Schema/Node_NodeNgramsNodeNgrams.hs

@@ -21,8 +21,6 @@ Next Step benchmark:
 
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans   #-}
-
 {-# LANGUAGE Arrows                 #-}
 {-# LANGUAGE FunctionalDependencies #-}
 {-# LANGUAGE QuasiQuotes            #-}

src/Gargantext/Database/Schema/NodesNgramsRepo.hs

@@ -10,8 +10,6 @@ Portability : POSIX
 
 -}
 
-{-# OPTIONS_GHC -fno-warn-orphans   #-}
-
 {-# LANGUAGE Arrows                     #-}
 {-# LANGUAGE FunctionalDependencies     #-}
 {-# LANGUAGE QuasiQuotes                #-}

src/Gargantext/Database/Schema/User.hs

@@ -10,8 +10,6 @@ Portability : POSIX
 Functions to deal with users, database side.
 -}
 
-
-{-# OPTIONS_GHC -fno-warn-orphans        #-}
 {-# OPTIONS_GHC -fno-warn-deprecations #-}
 
 {-# LANGUAGE DeriveAnyClass              #-}