Skip to content

haskell-gargantext
haskell-gargantext
Commit e49f98b9 authored by Yoelis Acourt's avatar Yoelis Acourt
Browse files
Options

chore: remove redondant imports

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