Skip to content

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

[ngrams] list.hs: fix imports and unused vars

parent 96152c5c
Pipeline #5304 passed with stages
          in 72 minutes and 7 seconds
          Hide whitespace changes
          Inline Side-by-side
          Showing with 1 addition and 3 deletions
          src/Gargantext/API/Ngrams/List.hs
          View file @ f348606c
          ...@@ -31,7 +31,6 @@ import Gargantext.API.Admin.Orchestrator.Types ...@@ -31,7 +31,6 @@ import Gargantext.API.Admin.Orchestrator.Types
          import Gargantext.API.Ngrams (setListNgrams) import Gargantext.API.Ngrams (setListNgrams)
          import Gargantext.API.Ngrams.List.Types import Gargantext.API.Ngrams.List.Types
          import Gargantext.API.Ngrams.Prelude (getNgramsList) import Gargantext.API.Ngrams.Prelude (getNgramsList)
          import Gargantext.API.Ngrams.Tools (getNodeStoryVar)
          import Gargantext.API.Ngrams.Types import Gargantext.API.Ngrams.Types
          import Gargantext.API.Prelude (GargServer, GargM, GargError) import Gargantext.API.Prelude (GargServer, GargM, GargError)
          import Gargantext.API.Types import Gargantext.API.Types
          ...@@ -48,7 +47,6 @@ import Gargantext.Database.Types (Indexed(..)) ...@@ -48,7 +47,6 @@ import Gargantext.Database.Types (Indexed(..))
          import Gargantext.Prelude hiding (concat, toList) import Gargantext.Prelude hiding (concat, toList)
          import Gargantext.Utils.Jobs (serveJobsAPI, MonadJobStatus(..)) import Gargantext.Utils.Jobs (serveJobsAPI, MonadJobStatus(..))
          import Gargantext.Utils.Servant qualified as GUS import Gargantext.Utils.Servant qualified as GUS
          import GHC.Conc (readTVar)
          import Prelude qualified import Prelude qualified
          import Protolude qualified as P import Protolude qualified as P
          import Servant import Servant
          ...@@ -125,7 +123,7 @@ setList l m = do ...@@ -125,7 +123,7 @@ setList l m = do
          -- TODO check with Version for optim -- TODO check with Version for optim
          -- printDebug "New list as file" l -- printDebug "New list as file" l
          _ <- mapM (\(nt, Versioned _v ns) -> (setListNgrams l nt ns)) $ toList m _ <- mapM (\(nt, Versioned _v ns) -> (setListNgrams l nt ns)) $ toList m
          v <- getNodeStoryVar [l] -- v <- getNodeStoryVar [l]
          -- liftBase $ do -- liftBase $ do
          -- ns <- atomically $ readTVar v -- ns <- atomically $ readTVar v
          -- printDebug "[setList] node story: " ns -- printDebug "[setList] node story: " ns
          ......
          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