[openalex] one more fix to make it similar to web search

parent c05efd19
Pipeline #7728 passed with stages
in 50 minutes and 23 seconds
......@@ -35,7 +35,7 @@ get _email q lang mLimit = do
Just ("title_and_abstract.search:" <> Corpus.getRawQuery q)
, (\l -> "language:" <> iso639ToText l) <$> lang
]
eRes <- OA.fetchWorksC Nothing (Just $ T.intercalate "," $ catMaybes filters) (Just $ Corpus.getRawQuery q)
eRes <- OA.fetchWorksC Nothing (Just $ T.intercalate "," $ catMaybes filters) Nothing
pure $ (\(len, docsC) -> (len, docsC .| takeC limit .| mapC toDoc)) <$> eRes
toDoc :: OA.Work -> HyperdataDocument
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment