[tree] refactor "root" variable name
[gargantext.git] / src / Gargantext / Database / Action / Learn.hs
index 4a7abc4fc1db4069e7da7d6858710831f8a46ae2..cac047cf10504ca6f84957ba29c2c779de833fcc 100644 (file)
@@ -41,11 +41,11 @@ moreLike cId o _l order ft = do
 getPriors :: FavOrTrash -> CorpusId -> Cmd err (Events Bool)
 getPriors ft cId = do
 
-  docs_fav   <- filter (\(FacetDoc _ _ _ _ f _) -> f == Just 2)
-              <$> runViewDocuments cId False Nothing Nothing Nothing
+  docs_fav   <- filter (\(FacetDoc _ _ _ _ f _ _) -> f == Just 2)
+              <$> runViewDocuments cId False Nothing Nothing Nothing Nothing
 
   docs_trash <- List.take (List.length docs_fav)
-            <$> runViewDocuments cId True Nothing Nothing Nothing
+            <$> runViewDocuments cId True Nothing Nothing Nothing Nothing
 
 
   let priors = priorEventsWith text (fav2bool ft) (  List.zip (repeat False) docs_fav
@@ -58,8 +58,8 @@ moreLikeWith :: CorpusId   -> Maybe Offset -> Maybe Limit -> Maybe OrderBy
              -> FavOrTrash -> Events Bool  -> Cmd err [FacetDoc]
 moreLikeWith cId o l order ft priors = do
 
-  docs_test  <- filter (\(FacetDoc _ _ _ _ f _) -> f == Just 1)
-            <$> runViewDocuments cId False o Nothing order
+  docs_test  <- filter (\(FacetDoc _ _ _ _ f _ _) -> f == Just 1)
+            <$> runViewDocuments cId False o Nothing order Nothing
 
   let results = map fst
        $ filter ((==) (Just $ not $ fav2bool ft) . snd)
@@ -73,7 +73,7 @@ fav2bool ft = if (==) ft IsFav then True else False
 
 
 text :: FacetDoc -> Text
-text (FacetDoc _ _ _ h _ _)  = title <> "" <> Text.take 100 abstr
+text (FacetDoc _ _ _ h _ _ _)  = title <> "" <> Text.take 100 abstr
   where
     title = maybe "" identity (_hd_title    h)
     abstr = maybe "" identity (_hd_abstract h)