Commit e49f98b9 authored by Yoelis Acourt's avatar Yoelis Acourt

chore: remove redondant imports

parent 56d97d26
Pipeline #7281 failed with stages
in 61 minutes and 17 seconds
......@@ -38,7 +38,6 @@ import Gargantext.Prelude hiding (get)
import Gargantext.Utils.Jobs.Error
import PUBMED.Types qualified as PUBMED
import Servant.Client (ClientError)
import Debug.Pretty.Simple
data GetCorpusError
= -- | We couldn't parse the user input query into something meaningful.
......
......@@ -10,9 +10,7 @@ Portability : POSIX
module Gargantext.Core.Text.Corpus.API.OpenAlex where
import Conduit ( ConduitT, (.|), mapC, takeC )
import Data.LanguageCodes qualified as ISO639
import Data.Text qualified as T
import Gargantext.Core (iso639ToText)
import Gargantext.Core.Text.Corpus.Query as Corpus
import Gargantext.Database.Admin.Types.Hyperdata.Document (HyperdataDocument(..))
import Protolude
......@@ -34,7 +32,6 @@ get _email q maybeFilters mLimit = do
& intersperse ","
& mconcat
& Just
_ <- trace ("JOINED" <> (show maybeJoinedFilters::Text)) $ return ()
eRes <- OA.fetchWorksC Nothing maybeJoinedFilters $ Just $ Corpus.getRawQuery q
pure $ (\(len, docsC) -> (len, docsC .| takeC limit .| mapC toDoc)) <$> eRes
......
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