[DB/FACTO] G.D.S.Prelude (with issue)

src/Gargantext/Database/Schema/NodeNodeNgrams.hs

@@ -24,12 +24,11 @@ module Gargantext.Database.Schema.NodeNodeNgrams
   where
 
 import Prelude
-import Control.Lens.TH (makeLenses)
 import Gargantext.Database.Admin.Utils (Cmd, mkCmd)
+import Gargantext.Database.Schema.Prelude
 import Gargantext.Database.Schema.Ngrams (NgramsTypeId, pgNgramsTypeId, NgramsId)
 import Gargantext.Database.Admin.Types.Node (pgNodeId)
 import Gargantext.Database.Admin.Types.Node
-import Opaleye
 
 data NodeNodeNgramsPoly n1 n2 ngrams_id ngt w
    = NodeNodeNgrams { _nnng_node1_id   :: !n1

src/Gargantext/Database/Schema/NodeNodeNgrams2.hs

@@ -23,13 +23,11 @@ Portability : POSIX
 module Gargantext.Database.Schema.NodeNodeNgrams2
   where
 
-import Control.Lens.TH (makeLenses)
-import Data.Profunctor.Product.TH (makeAdaptorAndInstance)
+import Gargantext.Database.Schema.Prelude
 import Gargantext.Database.Schema.NodeNgrams (NodeNgramsId)
 import Gargantext.Database.Admin.Types.Node (pgNodeId)
 import Gargantext.Database.Admin.Types.Node
 import Gargantext.Database.Admin.Utils (Cmd, mkCmd)
-import Opaleye
 import Prelude
 
 data NodeNodeNgrams2Poly node_id nodengrams_id w

src/Gargantext/Database/Schema/NodesNgramsRepo.hs

@@ -28,10 +28,8 @@ Portability : POSIX
 module Gargantext.Database.Schema.NodesNgramsRepo
   where
 
-import Control.Arrow (returnA)
-import Control.Lens.TH (makeLenses)
 import Data.Map.Strict.Patch (PatchMap)
-import Data.Profunctor.Product.TH (makeAdaptorAndInstance)
+import Gargantext.Database.Schema.Prelude
 import Gargantext.API.Ngrams (NgramsStatePatch, NgramsTablePatch)
 import Gargantext.Database.Schema.Ngrams (NgramsType)
 import Gargantext.Database.Admin.Types.Node (NodeId)

src/Gargantext/Database/Schema/Prelude.hs

+{-|
+Module      : Gargantext.Database.Prelude
+Description : 
+Copyright   : (c) CNRS, 2017-Present
+License     : AGPL + CECILL v3
+Maintainer  : team@gargantext.org
+Stability   : experimental
+Portability : POSIX
+-}
+
+
+{-# LANGUAGE NoImplicitPrelude      #-}
+
+module Gargantext.Database.Schema.Prelude
+  ( module Control.Arrow
+  , module Control.Lens.TH
+  , module Data.Aeson.TH
+  , module Data.Profunctor.Product.TH
+  , module Data.Swagger
+  , module Database.PostgreSQL.Simple.FromField
+  , module Database.PostgreSQL.Simple.FromRow
+  , module Database.PostgreSQL.Simple.SqlQQ
+  , module Database.PostgreSQL.Simple.ToField
+  , module Database.PostgreSQL.Simple.ToRow
+  , module Database.PostgreSQL.Simple.Types
+  , module GHC.Generics
+  , module Gargantext.Core.Utils.Prefix
+  , module Opaleye
+  , module Opaleye.Internal.QueryArr
+  , module Test.QuickCheck.Arbitrary
+  )
+  where
+
+import Control.Arrow (returnA)
+import Control.Lens.TH (makeLenses, makeLensesWith, abbreviatedFields)
+import Data.Aeson.TH (deriveJSON)
+import Data.Profunctor.Product.TH (makeAdaptorAndInstance)
+import Data.Swagger hiding (required, in_)
+import GHC.Generics (Generic)
+import Gargantext.Core.Utils.Prefix (unPrefix, unPrefixSwagger)
+import Opaleye hiding (FromField)
+import Opaleye.Internal.QueryArr (Query)
+import Test.QuickCheck.Arbitrary
+
+import Database.PostgreSQL.Simple.FromField (FromField, fromField)
+import Database.PostgreSQL.Simple.FromRow (FromRow, fromRow, field)
+import Database.PostgreSQL.Simple.SqlQQ   (sql)
+import Database.PostgreSQL.Simple.ToField (toField, ToField)
+import Database.PostgreSQL.Simple.ToRow   (toRow)
+import Database.PostgreSQL.Simple.Types   (Values(..), QualifiedIdentifier(..))
+

src/Gargantext/Database/Schema/User.hs

@@ -25,13 +25,18 @@ Functions to deal with users, database side.
 
 module Gargantext.Database.Schema.User where
 
-import Control.Lens.TH (makeLensesWith, abbreviatedFields)
 import Data.Maybe (Maybe)
-import Data.Profunctor.Product.TH (makeAdaptorAndInstance)
 import Data.Text (Text)
 import Data.Time (UTCTime)
 import GHC.Show(Show(..))
 import Gargantext.Prelude
+
+-- FIXME PLZ : the import below leads to an error, why ?
+-- import Gargantext.Database.Schema.Prelude hiding (makeLensesWith, abbreviatedFields, makeAdaptorAndInstance)
+
+-- When FIXED : Imports to remove:
+import Control.Lens.TH (makeLensesWith, abbreviatedFields)
+import Data.Profunctor.Product.TH (makeAdaptorAndInstance)
 import Opaleye
 
 ------------------------------------------------------------------------