[FIX] removing cLouvain c++ lib
[gargantext.git] / src / Gargantext / Database / Query / Table / NodeNgrams.hs
index 5386912b24f86e975d8281322b2e0205e09bd97c..d6b7bb487b57ebbf9a2a508217d968caf0187276 100644 (file)
@@ -27,13 +27,14 @@ module Gargantext.Database.Query.Table.NodeNgrams
 
 import Data.List.Extra (nubOrd)
 import Data.Map (Map)
-import Data.Maybe (Maybe, fromMaybe)
+import Data.Maybe (fromMaybe)
 import Data.Text (Text)
 import Database.PostgreSQL.Simple (FromRow)
 import Database.PostgreSQL.Simple.FromRow (fromRow, field)
 import Database.PostgreSQL.Simple.SqlQQ (sql)
 import Database.PostgreSQL.Simple.ToField (toField)
 import Database.PostgreSQL.Simple.Types (Values(..), QualifiedIdentifier(..))
+import Gargantext.Core
 import Gargantext.Core.Types
 import Gargantext.Database.Prelude
 import Gargantext.Database.Schema.Ngrams (NgramsType, ngramsTypeId, fromNgramsTypeId)
@@ -82,7 +83,7 @@ insertNodeNgrams nns = runPGSQuery query (PGS.Only $ Values fields nns')
     -- nns' :: [(Int, ListTypeId, NgramsText, NgramsTypeId ,NgramsField, NgramsTag, NgramsClass, Double)]
     nns' = map (\(NodeNgrams _id (NodeId node_id'') node_subtype ngrams_terms ngrams_type ngrams_field ngrams_tag ngrams_class weight)
                               -> [ toField node_id''
-                                 , toField $ listTypeId node_subtype
+                                 , toField $ toDBid node_subtype
                                  , toField $ ngrams_terms
                                  , toField $ ngramsTypeId ngrams_type
                                  , toField $ fromMaybe 0 ngrams_field