Commit c97cd56e authored by Alexandre Delanoë's avatar Alexandre Delanoë

[Global Structure] commenting ngrams function to database (focusing on main...

[Global Structure] commenting ngrams function to database (focusing on main business logic without database for now).
parent 2c0ea8ca
...@@ -35,7 +35,6 @@ library: ...@@ -35,7 +35,6 @@ library:
- Gargantext.Text.Ngrams.Token.Text - Gargantext.Text.Ngrams.Token.Text
- Gargantext.Text.Parsers.CSV - Gargantext.Text.Parsers.CSV
- Gargantext.Text.Parsers.Date - Gargantext.Text.Parsers.Date
- Gargantext.Database
- Gargantext.API - Gargantext.API
dependencies: dependencies:
- QuickCheck - QuickCheck
......
...@@ -19,7 +19,7 @@ module Gargantext.Database ( ...@@ -19,7 +19,7 @@ module Gargantext.Database (
, module Gargantext.Database.User , module Gargantext.Database.User
, module Gargantext.Database.Node , module Gargantext.Database.Node
, module Gargantext.Database.NodeNode , module Gargantext.Database.NodeNode
, module Gargantext.Database.Ngram -- , module Gargantext.Database.Ngram
, module Gargantext.Database.NodeNgram , module Gargantext.Database.NodeNgram
, module Gargantext.Database.NodeNodeNgram , module Gargantext.Database.NodeNodeNgram
, module Gargantext.Database.NodeNgramNgram , module Gargantext.Database.NodeNgramNgram
...@@ -34,7 +34,7 @@ import Gargantext.Database.Utils ...@@ -34,7 +34,7 @@ import Gargantext.Database.Utils
import Gargantext.Database.User import Gargantext.Database.User
import Gargantext.Database.Node import Gargantext.Database.Node
import Gargantext.Database.NodeNode import Gargantext.Database.NodeNode
import Gargantext.Database.Ngram --import Gargantext.Database.Ngram
import Gargantext.Database.NodeNgram import Gargantext.Database.NodeNgram
import Gargantext.Database.NodeNodeNgram import Gargantext.Database.NodeNodeNgram
import Gargantext.Database.NodeNgramNgram import Gargantext.Database.NodeNgramNgram
......
...@@ -81,5 +81,5 @@ findWith f t = find (\x -> f x == t) ...@@ -81,5 +81,5 @@ findWith f t = find (\x -> f x == t)
--userWithId t xs = userWith userUserId t xs --userWithId t xs = userWith userUserId t xs
-- | not optimized (get all ngrams without filters) -- | not optimized (get all ngrams without filters)
getNgrams :: PGS.Connection -> IO [Ngram] dbGetNgrams :: PGS.Connection -> IO [Ngram]
getNgrams conn = runQuery conn queryNgramTable dbGetNgrams conn = runQuery conn queryNgramTable
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment