Skip to content

haskell-gargantext
haskell-gargantext
Verified Commit d304bb36 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

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

parent c05efd19
Pipeline #7728 passed with stages
          in 50 minutes and 23 seconds
          Hide whitespace changes
          Inline Side-by-side
          Showing with 1 addition and 1 deletion
          src/Gargantext/Core/Text/Corpus/API/OpenAlex.hs
          View file @ d304bb36
          ...@@ -35,7 +35,7 @@ get _email q lang mLimit = do ...@@ -35,7 +35,7 @@ get _email q lang mLimit = do
          Just ("title_and_abstract.search:" <> Corpus.getRawQuery q) Just ("title_and_abstract.search:" <> Corpus.getRawQuery q)
          , (\l -> "language:" <> iso639ToText l) <$> lang , (\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 pure $ (\(len, docsC) -> (len, docsC .| takeC limit .| mapC toDoc)) <$> eRes
          toDoc :: OA.Work -> HyperdataDocument 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