[Database][Schema] NodeNgramsNgrams and NodeNgram.

src/Gargantext/Database/Facet.hs

@@ -46,7 +46,7 @@ import Gargantext.Core.Utils.Prefix (unPrefix)
 import Gargantext.Database.Config (nodeTypeId)
 import Gargantext.Database.Schema.Ngrams
 import Gargantext.Database.Node
-import Gargantext.Database.NodeNgram
+import Gargantext.Database.Schema.NodeNgram
 import Gargantext.Database.NodeNode
 import Gargantext.Database.Queries
 import Opaleye

src/Gargantext/Database/Flow.hs

@@ -33,8 +33,8 @@ import Gargantext.Database.Root (getRootCmd)
 import Gargantext.Database.Types.Node (NodeType(..), NodeId)
 import Gargantext.Database.Node.Document.Add    (add)
 import Gargantext.Database.Node.Document.Insert (insertDocuments, ReturnId(..), addUniqIdsDoc, addUniqIdsContact, ToDbData(..))
-import Gargantext.Database.NodeNgram (NodeNgramPoly(..), insertNodeNgrams)
-import Gargantext.Database.NodeNgramsNgrams (NodeNgramsNgramsPoly(..), insertNodeNgramsNgramsNew)
+import Gargantext.Database.Schema.NodeNgram (NodeNgramPoly(..), insertNodeNgrams)
+import Gargantext.Database.Schema.NodeNgramsNgrams (NodeNgramsNgramsPoly(..), insertNodeNgramsNgramsNew)
 import Gargantext.Database.Types.Node (HyperdataDocument(..))
 --import Gargantext.Database.Node.Contact (HyperdataContact(..))
 import Gargantext.Database.User (getUser, UserLight(..))

src/Gargantext/Database/Flow/Utils.hs

@@ -21,7 +21,7 @@ import Gargantext.Prelude
 import Gargantext.Database.Schema.Ngrams
 import Gargantext.Database.Types.Node (NodeId, Node, NodePoly(..), Hyperdata)
 import Gargantext.Database.Node  -- (Cmd)
-import Gargantext.Database.NodeNgram
+import Gargantext.Database.Schema.NodeNgram
 
 toMaps :: Hyperdata a => (a -> Map (NgramsT Ngrams) Int) -> [Node a] -> Map (NgramsT Ngrams) (Map NodeId Int)
 toMaps fun ns = mapNodeIdNgrams $ documentIdWithNgrams fun ns'

src/Gargantext/Database/NodeNgram.hs → src/Gargantext/Database/Schema/NodeNgram.hs

 {-|
-Module      : Gargantext.Database.NodeNgrams
+Module      : Gargantext.Database.Schema.NodeNgrams
 Description : NodeNgram for Ngram indexation or Lists
 Copyright   : (c) CNRS, 2017-Present
 License     : AGPL + CECILL v3
@@ -27,7 +27,7 @@ if Node is a List     then it is listing (either Stop, Candidate or Map)
 
 
 -- TODO NodeNgrams
-module Gargantext.Database.NodeNgram where
+module Gargantext.Database.Schema.NodeNgram where
 
 import Data.Text (Text)
 import Control.Lens.TH (makeLensesWith, abbreviatedFields)

src/Gargantext/Database/NodeNgramsNgrams.hs → src/Gargantext/Database/Schema/NodeNgramsNgrams.hs

 {-|
-Module      : Gargantext.Database.NodeNgramsNgrams
+Module      : Gargantext.Database.Schema.NodeNgramsNgrams
 Description : 
 Copyright   : (c) CNRS, 2017-Present
 License     : AGPL + CECILL v3
@@ -28,7 +28,7 @@ Next Step benchmark:
 {-# LANGUAGE TemplateHaskell        #-}
 {-# OPTIONS_GHC -fno-warn-orphans   #-}
 
-module Gargantext.Database.NodeNgramsNgrams
+module Gargantext.Database.Schema.NodeNgramsNgrams
   where
 
 import Control.Lens.TH (makeLensesWith, abbreviatedFields)

src/Gargantext/Database/TextSearch.hs

@@ -30,7 +30,7 @@ import Gargantext.Database.Facet
 import Gargantext.Database.Node
 import Gargantext.Database.Schema.Ngrams
 import Gargantext.Database.NodeNode
-import Gargantext.Database.NodeNgram
+import Gargantext.Database.Schema.NodeNgram
 import Gargantext.Database.Queries
 import Gargantext.Core.Types
 import Control.Arrow (returnA)