[DB/FACT] Gargantext.Database.Prelude

bin/gargantext-import/Main.hs

@@ -30,7 +30,7 @@ import Gargantext.Core.Types.Individu (User(..))
 import Gargantext.Database.Action.Flow (FlowCmdM, flowCorpusFile, flowAnnuaire, TermType(..))
 import Gargantext.Database.Query.Table.User (insertUsersDemo)
 import Gargantext.Database.Admin.Types.Node (CorpusId, toHyperdataDocument)
-import Gargantext.Database.Admin.Utils (Cmd, )
+import Gargantext.Database.Prelude (Cmd, )
 import Gargantext.Prelude
 import Gargantext.Text.Corpus.Parsers (FileFormat(..))
 import Prelude (read)

bin/gargantext-init/Main.hs

@@ -31,7 +31,7 @@ import Gargantext.Database.Query.Table.User (insertUsersDemo)
 import Gargantext.Database.Admin.Config (userMaster, corpusMasterName)
 import Gargantext.Database.Admin.Trigger.Init (initTriggers)
 import Gargantext.Database.Admin.Types.Node (CorpusId, RootId, HyperdataCorpus, ListId)
-import Gargantext.Database.Admin.Utils (Cmd, )
+import Gargantext.Database.Prelude (Cmd, )
 import Gargantext.Prelude
 import System.Environment (getArgs)
 

package.yaml

@@ -38,7 +38,7 @@ library:
   - Gargantext.Database.Action.Flow
   - Gargantext.Database.Query.Table.User
   - Gargantext.Database.Query.Table.Node
-  - Gargantext.Database.Admin.Utils
+  - Gargantext.Database.Prelude
   - Gargantext.Database.Admin.Trigger.Init
   - Gargantext.Database.Admin.Config
   - Gargantext.Database.Admin.Types.Node

src/Gargantext/API.hs

@@ -75,7 +75,7 @@ import Gargantext.Core.Types.Individu (User(..))
 import Gargantext.Database.Query.Table.Node.Contact (HyperdataContact)
 import Gargantext.Database.Admin.Types.Node
 import Gargantext.Database.Admin.Types.Node (NodeId, CorpusId, AnnuaireId)
-import Gargantext.Database.Admin.Utils (HasConnectionPool)
+import Gargantext.Database.Prelude (HasConnectionPool)
 import Gargantext.Prelude
 import Gargantext.Viz.Graph.API
 import Network.HTTP.Types hiding (Query)

src/Gargantext/API/Admin/Auth.hs

@@ -48,7 +48,7 @@ import Gargantext.Database.Query.Tree (isDescendantOf, isIn)
 import Gargantext.Database.Query.Tree.Root (getRoot)
 import Gargantext.Database.Schema.Node (NodePoly(_node_id)) 
 import Gargantext.Database.Admin.Types.Node (NodeId(..), UserId, ListId, DocId)
-import Gargantext.Database.Admin.Utils (Cmd', CmdM, HasConnectionPool)
+import Gargantext.Database.Prelude (Cmd', CmdM, HasConnectionPool)
 import Gargantext.Prelude hiding (reverse)
 import Servant
 import Servant.Auth.Server

src/Gargantext/API/Admin/Settings.hs

@@ -43,7 +43,7 @@ import GHC.Enum
 import GHC.Generics (Generic)
 import Gargantext.API.Admin.Orchestrator.Types
 import Gargantext.API.Ngrams (NgramsRepo, HasRepoVar(..), HasRepoSaver(..), HasRepo(..), RepoEnv(..), r_version, saveRepo, initRepo, renv_var, renv_lock)
-import Gargantext.Database.Admin.Utils (databaseParameters, HasConnectionPool(..), Cmd', runCmd)
+import Gargantext.Database.Prelude (databaseParameters, HasConnectionPool(..), Cmd', runCmd)
 import Gargantext.Prelude
 import Network.HTTP.Client (Manager)
 import Network.HTTP.Client.TLS (newTlsManager)

src/Gargantext/API/Admin/Types.hs

@@ -42,7 +42,7 @@ import Gargantext.API.Ngrams
 import Gargantext.Core.Types
 import Gargantext.Database.Query.Tree
 import Gargantext.Database.Admin.Types.Errors (NodeError(..), HasNodeError(..))
-import Gargantext.Database.Admin.Utils
+import Gargantext.Database.Prelude
 import Gargantext.Prelude
 import Servant
 import Servant.Job.Async (HasJobEnv)

src/Gargantext/API/Corpus/Export.hs

@@ -43,7 +43,7 @@ import Gargantext.Database.Query.Table.Node.Select (selectNodesWithUsername)
 import Gargantext.Database.Admin.Config (userMaster)
 import Gargantext.Database.Admin.Types.Errors (HasNodeError)
 import Gargantext.Database.Admin.Types.Node (Node, HyperdataDocument(..), NodeId, ListId, CorpusId)
-import Gargantext.Database.Admin.Utils (Cmd)
+import Gargantext.Database.Prelude (Cmd)
 import Gargantext.Database.Schema.Node (_node_id, _node_hyperdata)
 import Gargantext.Database.Schema.Ngrams (NgramsType(..))
 import Gargantext.Database.Query.Table.NodeNode (selectDocNodes)

src/Gargantext/API/Corpus/New/File.hs

@@ -35,7 +35,7 @@ import Data.Text (Text())
 import GHC.Generics (Generic)
 import Gargantext.API.Ngrams (TODO)
 import Gargantext.Database.Admin.Types.Node
-import Gargantext.Database.Admin.Utils -- (Cmd, CmdM)
+import Gargantext.Database.Prelude -- (Cmd, CmdM)
 import Gargantext.Prelude
 import Gargantext.Prelude.Utils (sha)
 import Servant

src/Gargantext/API/Metrics.hs

@@ -36,7 +36,7 @@ import Gargantext.Core.Types (CorpusId, ListId, Limit)
 import Gargantext.Core.Types (ListType(..))
 import Gargantext.Core.Utils.Prefix (unPrefix, unPrefixSwagger)
 import Gargantext.Database.Action.Flow
-import Gargantext.Database.Admin.Utils
+import Gargantext.Database.Prelude
 import Gargantext.Prelude
 import Gargantext.Text.Metrics (Scored(..))
 import Gargantext.Viz.Chart

src/Gargantext/API/Ngrams.hs

@@ -131,7 +131,7 @@ import Gargantext.Database.Query.Table.Ngrams hiding (NgramsType(..), ngrams, ng
 import Gargantext.Database.Admin.Config (userMaster)
 import Gargantext.Database.Admin.Types.Errors (HasNodeError)
 import Gargantext.Database.Admin.Types.Node (NodeType(..))
-import Gargantext.Database.Admin.Utils (fromField', HasConnectionPool)
+import Gargantext.Database.Prelude (fromField', HasConnectionPool)
 import Gargantext.Prelude
 import Prelude (Enum, Bounded, Semigroup(..), minBound, maxBound {-, round-}, error)
 import Servant hiding (Patch)

src/Gargantext/API/Node.hs

@@ -64,7 +64,7 @@ import Gargantext.Database.Query.Tree (treeDB)
 import Gargantext.Database.Admin.Config (nodeTypeId)
 import Gargantext.Database.Admin.Types.Errors (HasNodeError(..))
 import Gargantext.Database.Admin.Types.Node
-import Gargantext.Database.Admin.Utils -- (Cmd, CmdM)
+import Gargantext.Database.Prelude -- (Cmd, CmdM)
 import Gargantext.Database.Schema.Node (node_userId, _node_typename)
 import Gargantext.Database.Query.Table.NodeNode
 import Gargantext.Prelude

src/Gargantext/API/Table.hs

@@ -50,7 +50,7 @@ import Gargantext.Database.Query.Facet (FacetDoc , runViewDocuments, OrderBy(..)
 import Gargantext.Database.Action.Learn (FavOrTrash(..), moreLike)
 import Gargantext.Database.Action.Search
 import Gargantext.Database.Admin.Types.Node
-import Gargantext.Database.Admin.Utils -- (Cmd, CmdM)
+import Gargantext.Database.Prelude -- (Cmd, CmdM)
 import Gargantext.Prelude
 import Servant
 import Test.QuickCheck (elements)

src/Gargantext/Database.hs

@@ -16,10 +16,10 @@ Gargantext's database.
 
 {-# LANGUAGE NoImplicitPrelude #-}
 
-module Gargantext.Database ( module Gargantext.Database.Admin.Utils
+module Gargantext.Database ( module Gargantext.Database.Prelude
                         -- , module Gargantext.Database.Bashql
                            )
     where
 
-import Gargantext.Database.Admin.Utils (connectGargandb)
+import Gargantext.Database.Prelude (connectGargandb)
 -- import Gargantext.Database.Bashql

src/Gargantext/Database/Action/Flow.hs

@@ -74,7 +74,7 @@ import Gargantext.Database.Action.Search (searchInDatabase)
 import Gargantext.Database.Admin.Config (userMaster, corpusMasterName)
 import Gargantext.Database.Admin.Types.Errors (HasNodeError(..))
 import Gargantext.Database.Admin.Types.Node -- (HyperdataDocument(..), NodeType(..), NodeId, UserId, ListId, CorpusId, RootId, MasterCorpusId, MasterUserId)
-import Gargantext.Database.Admin.Utils (Cmd)
+import Gargantext.Database.Prelude (Cmd)
 import Gargantext.Database.Query.Table.Ngrams
 import Gargantext.Database.Query.Table.NodeNgrams (listInsertDb , getCgramsId)
 import Gargantext.Database.Query.Table.NodeNodeNgrams2

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

@@ -28,7 +28,7 @@ import Database.PostgreSQL.Simple.SqlQQ (sql)
 import Gargantext.Core.Types (TableResult(..))
 import Gargantext.Database.Action.Flow.Utils
 import Gargantext.Database.Admin.Types.Node (AnnuaireId, CorpusId, ListId{-, DocId, ContactId-})
-import Gargantext.Database.Admin.Utils (Cmd, runPGSQuery)
+import Gargantext.Database.Prelude (Cmd, runPGSQuery)
 import Gargantext.Database.Query.Table.Node.Children (getAllContacts)
 import Gargantext.Database.Query.Table.Node.Contact -- (HyperdataContact(..))
 import Gargantext.Database.Schema.Ngrams -- (NgramsType(..))

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

@@ -29,7 +29,7 @@ import Gargantext.Text
 import Gargantext.Text.Terms
 import Gargantext.API.Ngrams (HasRepoVar, RepoCmdM)
 import Gargantext.Database.Admin.Types.Errors (HasNodeError)
-import Gargantext.Database.Admin.Utils (CmdM)
+import Gargantext.Database.Prelude (CmdM)
 import Gargantext.Database.Query.Table.Node.Document.Insert
 
 type FlowCmdM env err m =

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

@@ -23,7 +23,7 @@ import Gargantext.Database.Query.Table.Node
 import Gargantext.Database.Query.Table.User
 import Gargantext.Database.Admin.Types.Errors
 import Gargantext.Database.Admin.Types.Node
-import Gargantext.Database.Admin.Utils (Cmd)
+import Gargantext.Database.Prelude (Cmd)
 import Gargantext.Database.Schema.Ngrams
 import Gargantext.Database.Schema.Node
 import Gargantext.Database.Query.Table.NodeNodeNgrams

src/Gargantext/Database/Action/Learn.hs

@@ -25,7 +25,7 @@ import Data.Tuple (snd)
 import Gargantext.Core.Types (Offset, Limit)
 import Gargantext.Database.Query.Facet
 import Gargantext.Database.Admin.Types.Node
-import Gargantext.Database.Admin.Utils (Cmd)
+import Gargantext.Database.Prelude (Cmd)
 import Gargantext.Prelude
 import Gargantext.Text.Learn
 import qualified Data.List as List

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

@@ -33,7 +33,7 @@ import Gargantext.Core (Lang(..))
 import Gargantext.Core.Types (Ordering(..))
 import Gargantext.Database.Admin.Config (nodeTypeId)
 import Gargantext.Database.Admin.Types.Node -- (ListId, CorpusId, NodeId)
-import Gargantext.Database.Admin.Utils (Cmd, runPGSQuery)
+import Gargantext.Database.Prelude (Cmd, runPGSQuery)
 import Gargantext.Database.Schema.Ngrams (ngramsTypeId, NgramsType(..))
 import Gargantext.Prelude
 import Gargantext.Text.Metrics.TFICF

src/Gargantext/Database/Action/Search.hs

@@ -36,7 +36,7 @@ import Gargantext.Database.Query.Table.NodeNodeNgrams
 import Gargantext.Database.Query.Table.Ngrams
 import Gargantext.Database.Admin.Config (nodeTypeId)
 import Gargantext.Database.Admin.Types.Node (NodeType(..))
-import Gargantext.Database.Admin.Utils (Cmd, runPGSQuery, runOpaQuery, runCountOpaQuery)
+import Gargantext.Database.Prelude (Cmd, runPGSQuery, runOpaQuery, runCountOpaQuery)
 import Gargantext.Database.Schema.Node
 import Gargantext.Prelude
 import Gargantext.Text.Terms.Mono.Stem.En (stemIt)

src/Gargantext/Database/Admin/Bashql.hs

@@ -81,7 +81,7 @@ import Control.Monad.Reader -- (Reader, ask)
 import Data.Text (Text)
 import Data.List (concat, last)
 import Gargantext.Core.Types
-import Gargantext.Database.Admin.Utils (runOpaQuery, Cmd)
+import Gargantext.Database.Prelude (runOpaQuery, Cmd)
 import Gargantext.Database.Schema.Node
 import Gargantext.Database.Query.Table.Node
 import qualified Gargantext.Database.Query.Table.Node.Update as U (Update(..), update)

src/Gargantext/Database/Admin/Trigger/Init.hs

@@ -23,7 +23,7 @@ module Gargantext.Database.Admin.Trigger.Init
 import Gargantext.Database.Admin.Trigger.NodeNodeNgrams (triggerCountInsert, triggerCountInsert2)
 import Gargantext.Database.Admin.Trigger.Nodes (triggerSearchUpdate)
 import Gargantext.Database.Admin.Trigger.NodesNodes (triggerDeleteCount, triggerInsertCount, triggerUpdateAdd, triggerUpdateDel, MasterListId) -- , triggerCoocInsert)
-import Gargantext.Database.Admin.Utils (Cmd)
+import Gargantext.Database.Prelude (Cmd)
 import Gargantext.Prelude
 
 ------------------------------------------------------------------------

src/Gargantext/Database/Admin/Trigger/NodeNodeNgrams.hs

@@ -24,7 +24,7 @@ import Database.PostgreSQL.Simple.SqlQQ (sql)
 import Gargantext.Core.Types.Main (listTypeId, ListType(CandidateTerm))
 import Gargantext.Database.Admin.Config (nodeTypeId)
 import Gargantext.Database.Admin.Types.Node -- (ListId, CorpusId, NodeId)
-import Gargantext.Database.Admin.Utils (Cmd, execPGSQuery)
+import Gargantext.Database.Prelude (Cmd, execPGSQuery)
 import Gargantext.Prelude
 import qualified Database.PostgreSQL.Simple as DPS
 

src/Gargantext/Database/Admin/Trigger/Nodes.hs

@@ -23,7 +23,7 @@ module Gargantext.Database.Admin.Trigger.Nodes
 import Database.PostgreSQL.Simple.SqlQQ (sql)
 import Gargantext.Database.Admin.Config (nodeTypeId)
 import Gargantext.Database.Admin.Types.Node -- (ListId, CorpusId, NodeId)
-import Gargantext.Database.Admin.Utils (Cmd, execPGSQuery)
+import Gargantext.Database.Prelude (Cmd, execPGSQuery)
 import Gargantext.Prelude
 import qualified Database.PostgreSQL.Simple as DPS
 

src/Gargantext/Database/Admin/Trigger/NodesNodes.hs

@@ -25,7 +25,7 @@ import Database.PostgreSQL.Simple.SqlQQ (sql)
 import Gargantext.Database.Admin.Config (nodeTypeId)
 import Gargantext.Database.Admin.Types.Node -- (ListId, CorpusId, NodeId)
 import Gargantext.Core.Types.Main (listTypeId, ListType(CandidateTerm))
-import Gargantext.Database.Admin.Utils (Cmd, execPGSQuery)
+import Gargantext.Database.Prelude (Cmd, execPGSQuery)
 import Gargantext.Prelude
 import qualified Database.PostgreSQL.Simple as DPS
 

src/Gargantext/Database/Admin/Types/Node.hs

@@ -43,7 +43,7 @@ import Database.PostgreSQL.Simple.FromField (FromField, fromField)
 import Database.PostgreSQL.Simple.ToField (ToField, toField, toJSONField)
 import GHC.Generics (Generic)
 import Gargantext.Core.Utils.Prefix (unPrefix, unPrefixSwagger)
-import Gargantext.Database.Admin.Utils (fromField')
+import Gargantext.Database.Prelude (fromField')
 import Gargantext.Database.Schema.Node
 import Gargantext.Prelude
 import Gargantext.Viz.Phylo (Phylo)

src/Gargantext/Database/Admin/Utils.hs → src/Gargantext/Database/Prelude.hs

 {-|
-Module      : Gargantext.Database.Util
+Module      : Gargantext.Database.Prelude
 Description : 
 Copyright   : (c) CNRS, 2017-Present
 License     : AGPL + CECILL v3
@@ -7,8 +7,6 @@ Maintainer  : team@gargantext.org
 Stability   : experimental
 Portability : POSIX
 
-Here is a longer description of this module, containing some
-commentary with @some markup@.
 -}
 
 {-# LANGUAGE ConstraintKinds   #-}
@@ -19,7 +17,7 @@ commentary with @some markup@.
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
 {-# LANGUAGE RankNTypes                 #-}
 
-module Gargantext.Database.Admin.Utils where
+module Gargantext.Database.Prelude where
 
 import Control.Exception
 import Control.Lens (Getter, view)

src/Gargantext/Database/Query.hs

@@ -32,7 +32,7 @@ import Gargantext.Database.Query.Table.Node
 import Gargantext.Database.Query.Table.Node.User
 import Gargantext.Database.Admin.Types.Errors
 import Gargantext.Database.Admin.Types.Node
-import Gargantext.Database.Admin.Utils (Cmd)
+import Gargantext.Database.Prelude (Cmd)
 import Prelude hiding (null, id, map, sum)
 
 ------------------------------------------------------------------------

src/Gargantext/Database/Query/Facet.hs

@@ -58,7 +58,7 @@ import Gargantext.Database.Query.Filter
 import Gargantext.Database.Query.Join (leftJoin5)
 import Gargantext.Database.Query.Table.Ngrams
 import Gargantext.Database.Admin.Config (nodeTypeId)
-import Gargantext.Database.Admin.Utils
+import Gargantext.Database.Prelude
 import Gargantext.Database.Schema.Node
 import Gargantext.Database.Query.Table.NodeNode
 import Gargantext.Database.Query.Table.NodeNodeNgrams

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

@@ -31,9 +31,9 @@ import Data.Text (Text)
 import Data.Map (Map, fromList)
 import Gargantext.Core.Types
 import Gargantext.Database.Admin.Types.Node (pgNodeId)
-import Gargantext.Database.Admin.Utils (runOpaQuery, Cmd)
+import Gargantext.Database.Prelude (runOpaQuery, Cmd)
 import Gargantext.Database.Schema.Ngrams
-import Gargantext.Database.Admin.Utils (runPGSQuery, formatPGSQuery)
+import Gargantext.Database.Prelude (runPGSQuery, formatPGSQuery)
 import Gargantext.Database.Query.Table.NodeNodeNgrams
 import Gargantext.Prelude
 import Gargantext.Database.Schema.Prelude

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

@@ -38,7 +38,7 @@ import Gargantext.Database.Query.Filter (limit', offset')
 import Gargantext.Database.Admin.Config (nodeTypeId)
 import Gargantext.Database.Admin.Types.Errors
 import Gargantext.Database.Admin.Types.Node (NodeType(..), defaultCorpus, Hyperdata, HyperData(..))
-import Gargantext.Database.Admin.Utils
+import Gargantext.Database.Prelude
 import Gargantext.Database.Query.Table.Node.Contact (HyperdataContact(..), arbitraryHyperdataContact)
 import Gargantext.Database.Schema.Node
 import Gargantext.Prelude hiding (sum, head)

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

@@ -28,7 +28,7 @@ import Gargantext.Database.Query.Table.NodeNode
 import Gargantext.Database.Query.Table.Node.Contact (HyperdataContact)
 import Gargantext.Database.Admin.Config (nodeTypeId)
 import Gargantext.Database.Admin.Types.Node (pgNodeId)
-import Gargantext.Database.Admin.Utils
+import Gargantext.Database.Prelude
 import Gargantext.Database.Schema.Node
 import Opaleye
 

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

@@ -30,7 +30,7 @@ import Database.PostgreSQL.Simple.FromField (FromField, fromField)
 import GHC.Generics (Generic)
 import Gargantext.Core.Utils.Prefix (unPrefix, unPrefixSwagger)
 import Gargantext.Database.Admin.Types.Node (Hyperdata, Node)
-import Gargantext.Database.Admin.Utils (fromField')
+import Gargantext.Database.Prelude (fromField')
 import Gargantext.Prelude
 import Opaleye (QueryRunnerColumnDefault, queryRunnerColumnDefault, PGJsonb, fieldQueryRunnerColumn)
 import Test.QuickCheck (elements)

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

@@ -36,7 +36,7 @@ import Database.PostgreSQL.Simple.ToRow (ToRow(..))
 import Database.PostgreSQL.Simple.Types (Values(..), QualifiedIdentifier(..))
 import GHC.Generics (Generic)
 import Gargantext.Database.Admin.Types.Node
-import Gargantext.Database.Admin.Utils (Cmd, runPGSQuery, formatPGSQuery)
+import Gargantext.Database.Prelude (Cmd, runPGSQuery, formatPGSQuery)
 import Gargantext.Prelude
 
 ---------------------------------------------------------------------------

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

@@ -76,7 +76,7 @@ import GHC.Generics (Generic)
 import Gargantext.Database.Query.Table.Node.Contact -- (HyperdataContact(..), ContactWho(..))
 import Gargantext.Database.Admin.Config (nodeTypeId)
 import Gargantext.Database.Admin.Types.Node
-import Gargantext.Database.Admin.Utils (Cmd, runPGSQuery)
+import Gargantext.Database.Prelude (Cmd, runPGSQuery)
 import Gargantext.Prelude
 import Gargantext.Prelude.Utils (sha)
 import qualified Data.ByteString.Lazy.Char8  as DC (pack)

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

@@ -21,7 +21,7 @@ import Control.Arrow (returnA)
 import Gargantext.Core.Types
 import Gargantext.Core.Types.Individu (Username)
 import Gargantext.Database.Admin.Config
-import Gargantext.Database.Admin.Utils
+import Gargantext.Database.Prelude
 import Gargantext.Database.Schema.Node
 import Gargantext.Database.Schema.User
 import Gargantext.Database.Query.Table.User

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

@@ -23,7 +23,7 @@ import Database.PostgreSQL.Simple
 
 import Gargantext.Prelude
 import Gargantext.Core.Types (Name)
-import Gargantext.Database.Admin.Utils
+import Gargantext.Database.Prelude
 import Gargantext.Database.Admin.Types.Node (NodeId, ParentId)
 
 -- import Data.ByteString

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

@@ -25,7 +25,7 @@ import Data.Aeson (encode, ToJSON)
 import Gargantext.Prelude
 import Gargantext.Database.Schema.Node 
 import Gargantext.Database.Admin.Types.Node
-import Gargantext.Database.Admin.Utils (Cmd, mkCmd)
+import Gargantext.Database.Prelude (Cmd, mkCmd)
 import Gargantext.Database.Admin.Types.Node (pgNodeId)
 
 updateHyperdata :: ToJSON a => NodeId -> a -> Cmd err Int64

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

@@ -36,7 +36,7 @@ import Gargantext.Core.Utils.Prefix (unPrefix, unPrefixSwagger)
 import Gargantext.Database.Admin.Types.Node (Node,Hyperdata, DocumentId, NodeId(..))
 import Gargantext.Database.Admin.Types.Node (NodeType(..))
 import Gargantext.Database.Admin.Types.Node (pgNodeId)
-import Gargantext.Database.Admin.Utils -- (fromField', Cmd)
+import Gargantext.Database.Prelude -- (fromField', Cmd)
 import Gargantext.Database.Query.Table.Node
 import Gargantext.Database.Query.Table.Node.Contact (HyperdataContact, fake_HyperdataContact)
 import Gargantext.Database.Schema.Node -- (Node(..))

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

@@ -41,7 +41,7 @@ import Database.PostgreSQL.Simple.SqlQQ (sql)
 import Database.PostgreSQL.Simple.ToField (toField)
 import Database.PostgreSQL.Simple.Types (Values(..), QualifiedIdentifier(..))
 import Gargantext.Core.Types
-import Gargantext.Database.Admin.Utils
+import Gargantext.Database.Prelude
 import Gargantext.Database.Schema.Ngrams (NgramsType, ngramsTypeId, fromNgramsTypeId)
 import Gargantext.Database.Schema.NodeNgrams
 import Gargantext.Prelude

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

@@ -47,7 +47,7 @@ import Gargantext.Database.Schema.NodeNode
 import Gargantext.Database.Admin.Types.Node (pgNodeId)
 import Gargantext.Database.Admin.Config (nodeTypeId)
 import Gargantext.Database.Admin.Types.Node (CorpusId, DocId)
-import Gargantext.Database.Admin.Utils
+import Gargantext.Database.Prelude
 import Gargantext.Database.Schema.Node
 import Gargantext.Prelude
 import Opaleye

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

@@ -28,7 +28,7 @@ module Gargantext.Database.Query.Table.NodeNodeNgrams
   where
 
 import Gargantext.Database.Admin.Types.Node (pgNodeId)
-import Gargantext.Database.Admin.Utils (Cmd, mkCmd)
+import Gargantext.Database.Prelude (Cmd, mkCmd)
 import Gargantext.Database.Schema.Ngrams (pgNgramsTypeId)
 import Gargantext.Database.Schema.NodeNodeNgrams
 import Gargantext.Database.Schema.Prelude

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

@@ -29,7 +29,7 @@ module Gargantext.Database.Query.Table.NodeNodeNgrams2
 import Gargantext.Database.Schema.Prelude
 import Gargantext.Database.Schema.NodeNodeNgrams2
 import Gargantext.Database.Admin.Types.Node (pgNodeId)
-import Gargantext.Database.Admin.Utils (Cmd, mkCmd)
+import Gargantext.Database.Prelude (Cmd, mkCmd)
 import Prelude
 
 

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

@@ -41,7 +41,7 @@ module Gargantext.Database.Query.Table.Node_NodeNgramsNodeNgrams
   where
 
 import Gargantext.Database.Schema.Prelude
-import Gargantext.Database.Admin.Utils (Cmd, runOpaQuery, mkCmd)
+import Gargantext.Database.Prelude (Cmd, runOpaQuery, mkCmd)
 import Gargantext.Database.Admin.Types.Node (pgNodeId)
 import Gargantext.Database.Schema.Node_NodeNgramsNodeNgrams
 import Gargantext.Database.Schema.Node()

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

@@ -31,7 +31,7 @@ module Gargantext.Database.Query.Table.NodesNgramsRepo
 import Gargantext.Database.Schema.Prelude
 import Gargantext.API.Ngrams (NgramsStatePatch)
 import Gargantext.Database.Schema.NodesNgramsRepo
-import Gargantext.Database.Admin.Utils (mkCmd, Cmd, runOpaQuery)
+import Gargantext.Database.Prelude (mkCmd, Cmd, runOpaQuery)
 import Gargantext.Prelude
 
 

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

@@ -45,7 +45,7 @@ import Data.Text (Text)
 import Data.Time (UTCTime)
 import Gargantext.Core.Types.Individu
 import Gargantext.Database.Schema.User
-import Gargantext.Database.Admin.Utils
+import Gargantext.Database.Prelude
 import Gargantext.Prelude
 import Opaleye
 

src/Gargantext/Database/Query/Tree.hs

@@ -31,7 +31,7 @@ import Gargantext.Core.Types.Main (NodeTree(..), Tree(..))
 import Gargantext.Database.Admin.Types.Node -- (pgNodeId, NodeType(..))
 import Gargantext.Database.Admin.Config (fromNodeTypeId, nodeTypeId)
 import Gargantext.Database.Admin.Types.Node (NodeId, NodeType, DocId, allNodeTypes)
-import Gargantext.Database.Admin.Utils (Cmd, runPGSQuery)
+import Gargantext.Database.Prelude (Cmd, runPGSQuery)
 import Gargantext.Prelude
 
 ------------------------------------------------------------------------

src/Gargantext/Database/Query/Tree/Root.hs

@@ -42,7 +42,7 @@ import Gargantext.Database.Schema.Node (queryNodeTable)
 import Gargantext.Database.Query
 import Gargantext.Database.Query.Table.User (queryUserTable, UserPoly(..))
 import Gargantext.Database.Admin.Types.Node (Node, NodeType(NodeUser), pgNodeId)
-import Gargantext.Database.Admin.Utils (Cmd, runOpaQuery)
+import Gargantext.Database.Prelude (Cmd, runOpaQuery)
 import Gargantext.Prelude
 import Opaleye (restrict, (.==), Query)
 import Opaleye.PGTypes (pgStrictText, pgInt4)

src/Gargantext/Text/List.hs

@@ -26,7 +26,7 @@ import Gargantext.API.Ngrams (NgramsElement, mkNgramsElement, RootParent(..), mS
 import Gargantext.Core (Lang(..))
 import Gargantext.Core.Types (ListType(..), MasterCorpusId, UserCorpusId, Ordering(..))
 import Gargantext.Database.Action.Metrics.NgramsByNode (getTficf, sortTficf, ngramsGroup, getNodesByNgramsUser, groupNodesByNgramsWith)
-import Gargantext.Database.Admin.Utils (Cmd)
+import Gargantext.Database.Prelude (Cmd)
 import Gargantext.Database.Schema.Ngrams (NgramsType(..))
 import Gargantext.Prelude
 import Gargantext.Text.List.Learn (Model(..))

src/Gargantext/Text/Terms.hs

@@ -54,7 +54,7 @@ import Gargantext.Text (sentences, HasText(..))
 import Gargantext.Text.Terms.Eleve (mainEleveWith, Tries, Token, buildTries, toToken)
 import Gargantext.Database.Schema.Ngrams (Ngrams(..), NgramsType(..))
 import Gargantext.Text.Terms.Mono  (monoTerms)
-import Gargantext.Database.Admin.Utils (Cmd)
+import Gargantext.Database.Prelude (Cmd)
 import Gargantext.Text.Terms.Mono.Stem (stem)
 import Gargantext.Text.Terms.Mono.Token.En (tokenize)
 import Gargantext.Text.Terms.Multi (multiterms)

src/Gargantext/Viz/Chart.hs

@@ -25,7 +25,7 @@ import GHC.Generics (Generic)
 import Gargantext.Core.Types.Main
 import Gargantext.Database.Admin.Config
 import Gargantext.Database.Admin.Types.Node (CorpusId)
-import Gargantext.Database.Admin.Utils
+import Gargantext.Database.Prelude
 import Gargantext.Database.Query.Table.Node
 import Gargantext.Database.Query.Table.Node.Select
 import Gargantext.Database.Query.Table.NodeNode (selectDocsDates)

src/Gargantext/Viz/Graph.hs

@@ -33,7 +33,7 @@ import Gargantext.Database.Admin.Types.Node (NodeId, Hyperdata)
 import Gargantext.Prelude
 import Test.QuickCheck (elements)
 import Database.PostgreSQL.Simple.FromField (FromField, fromField)
-import Gargantext.Database.Admin.Utils (fromField')
+import Gargantext.Database.Prelude (fromField')
 import Opaleye (QueryRunnerColumnDefault, queryRunnerColumnDefault, PGJsonb, fieldQueryRunnerColumn)
 import Test.QuickCheck.Arbitrary (Arbitrary, arbitrary)
 import qualified Data.Aeson as DA

src/Gargantext/Viz/Graph/API.hs

@@ -54,7 +54,7 @@ import Gargantext.Database.Query.Table.Node.User
 import Gargantext.Database.Admin.Types.Errors (HasNodeError)
 import Gargantext.Database.Admin.Types.Node
 import Gargantext.Database.Query.Table.Node.UpdateOpaleye (updateHyperdata)
-import Gargantext.Database.Admin.Utils (Cmd)
+import Gargantext.Database.Prelude (Cmd)
 import Gargantext.Prelude
 import qualified Gargantext.Prelude as P
 import Gargantext.Viz.Graph