[API][DB] Pairing tools: get pairs and pairWith.
[gargantext.git] / src / Gargantext / API / Ngrams.hs
index 09fd925ddc9bf455b1f372ff1ac34f819db06bc0..f0f8063eb006ac6903fe41a8e00c027e5bc48cbf 100644 (file)
@@ -47,7 +47,7 @@ module Gargantext.API.Ngrams
   , NgramsStatePatch
   , NgramsTablePatch
 
-  , NgramsElement
+  , NgramsElement(..)
   , mkNgramsElement
   , mergeNgramsElement
 
@@ -60,6 +60,7 @@ module Gargantext.API.Ngrams
   , Repo(..)
   , r_version
   , r_state
+  , r_history
   , NgramsRepo
   , NgramsRepoElement(..)
   , saveRepo
@@ -251,7 +252,7 @@ data NgramsElement =
                    , _ne_occurrences :: Int
                    , _ne_root        :: Maybe NgramsTerm
                    , _ne_parent      :: Maybe NgramsTerm
-                   , _ne_children    :: MSet NgramsTerm
+                   , _ne_children    :: MSet  NgramsTerm
                    }
       deriving (Ord, Eq, Show, Generic)
 
@@ -1043,14 +1044,14 @@ getTableNgrams _nType nId tabType listId limit_ offset
   -- trace (show lists) $
   -- getNgramsTableMap ({-lists <>-} listIds) ngramsType
 
-  let nSco = needsScores orderBy
+  let scoresNeeded = needsScores orderBy
   tableMap1 <- getNgramsTableMap listId ngramsType
   t1 <- getTime'
-  tableMap2 <- tableMap1 & v_data %%~ setScores nSco
+  tableMap2 <- tableMap1 & v_data %%~ setScores scoresNeeded
                                     . Map.mapWithKey ngramsElementFromRepo
   t2 <- getTime'
   tableMap3 <- tableMap2 & v_data %%~ fmap NgramsTable
-                                    . setScores (not nSco)
+                                    . setScores (not scoresNeeded)
                                     . selectAndPaginate
   t3 <- getTime'
   liftIO $ hprint stderr
@@ -1058,7 +1059,7 @@ getTableNgrams _nType nId tabType listId limit_ offset
                           % " map1=" % timeSpecs
                           % " map2=" % timeSpecs
                           % " map3=" % timeSpecs
-                          % " sql="  % (if nSco then "map2" else "map3")
+                          % " sql="  % (if scoresNeeded then "map2" else "map3")
                           % "\n"
             ) t0 t3 t0 t1 t1 t2 t2 t3
   pure tableMap3