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
-> 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)
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)