[FIX] Clean Text before sending it to NLP micro services + tests + clean code for...
[gargantext.git] / src / Gargantext / Database / Query / Table / NodeNodeNgrams.hs
index 9318a9d384e41ec3c1a95e3016ecab11d058274d..2dcfc29a1c128f226415c7a11e3aeb24030e03d8 100644 (file)
@@ -31,7 +31,7 @@ import Prelude
 
 
 queryNodeNodeNgramsTable :: Query NodeNodeNgramsRead
-queryNodeNodeNgramsTable = queryTable nodeNodeNgramsTable
+queryNodeNodeNgramsTable = selectTable nodeNodeNgramsTable
 
 -- | Insert utils
 insertNodeNodeNgrams :: [NodeNodeNgrams] -> Cmd err Int
@@ -39,9 +39,9 @@ insertNodeNodeNgrams = insertNodeNodeNgramsW
                      . map (\(NodeNodeNgrams n1 n2 ng nt w) ->
                               NodeNodeNgrams (pgNodeId n1)
                                              (pgNodeId n2)
-                                             (pgInt4   ng)
+                                             (sqlInt4   ng)
                                              (pgNgramsTypeId nt)
-                                             (pgDouble w)
+                                             (sqlDouble w)
                                                   )
 
 insertNodeNodeNgramsW :: [NodeNodeNgramsWrite] -> Cmd err Int
@@ -54,3 +54,6 @@ insertNodeNodeNgramsW nnnw =
                               , iOnConflict = (Just DoNothing)
       })
 
+
+
+