[FEAT] SocialList refactoring
[gargantext.git] / src / Gargantext / Database / Action / Learn.hs
index 4a2a5a924ce5f6c49403ac1601305d39a36d3126..899426ae6e7360dbaecea741bedf7dcde695b8de 100644 (file)
@@ -17,7 +17,6 @@ module Gargantext.Database.Action.Learn
 
 import Data.Maybe
 import Data.Text (Text)
-import Data.Tuple (snd)
 import Gargantext.Core.Types (Offset, Limit)
 import Gargantext.Database.Query.Facet
 import Gargantext.Database.Admin.Types.Hyperdata
@@ -43,10 +42,10 @@ 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
+              <$> 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
@@ -60,7 +59,7 @@ moreLikeWith :: CorpusId   -> Maybe Offset -> Maybe Limit -> Maybe OrderBy
 moreLikeWith cId o l order ft priors = do
 
   docs_test  <- filter (\(FacetDoc _ _ _ _ f _) -> f == Just 1)
-            <$> runViewDocuments cId False o Nothing order
+            <$> runViewDocuments cId False o Nothing order Nothing
 
   let results = map fst
        $ filter ((==) (Just $ not $ fav2bool ft) . snd)