[REFACT] SocialList (WIP)
[gargantext.git] / src / Gargantext / Database / Query / Table / Ngrams.hs
index f5a9e137d9881e707a619c8ea16f05b92232ae77..e807473443aeac4a473ace020d97efe7329a8bbb 100644 (file)
@@ -10,11 +10,7 @@ Portability : POSIX
 -}
 
 {-# LANGUAGE Arrows            #-}
-{-# LANGUAGE FlexibleContexts  #-}
-{-# LANGUAGE NoImplicitPrelude #-}
-{-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE QuasiQuotes       #-}
-{-# LANGUAGE RankNTypes        #-}
 {-# LANGUAGE TemplateHaskell   #-}
 
 module Gargantext.Database.Query.Table.Ngrams
@@ -25,20 +21,19 @@ module Gargantext.Database.Query.Table.Ngrams
   )
     where
 
-import Control.Arrow (returnA)
 import Control.Lens ((^.))
-import Data.Text (Text)
+import Data.ByteString.Internal (ByteString)
 import Data.Map (Map, fromList)
+import Data.Text (Text)
+import qualified Database.PostgreSQL.Simple as PGS
+
 import Gargantext.Core.Types
-import Gargantext.Database.Admin.Types.Node (pgNodeId)
 import Gargantext.Database.Prelude (runOpaQuery, Cmd)
-import Gargantext.Database.Schema.Ngrams
 import Gargantext.Database.Prelude (runPGSQuery, formatPGSQuery)
 import Gargantext.Database.Query.Table.NodeNodeNgrams
-import Gargantext.Prelude
+import Gargantext.Database.Schema.Ngrams
 import Gargantext.Database.Schema.Prelude
-import Data.ByteString.Internal (ByteString)
-import qualified Database.PostgreSQL.Simple as PGS
+import Gargantext.Prelude
 
 queryNgramsTable :: Query NgramsRead
 queryNgramsTable = queryTable ngramsTable
@@ -63,7 +58,7 @@ selectNgramsByDoc lIds dId nt = runOpaQuery (query lIds dId nt)
 _postNgrams :: CorpusId -> DocId -> [Text] -> Cmd err Int
 _postNgrams = undefined
 
-_dbGetNgramsDb :: Cmd err [NgramsDb]
+_dbGetNgramsDb :: Cmd err [NgramsDB]
 _dbGetNgramsDb = runOpaQuery queryNgramsTable
 
 
@@ -102,5 +97,3 @@ queryInsertNgrams = [sql|
            |]
 
 
-
-