[phylo] working on file naming function. Now OK2 but branch length is still missing
[gargantext.git] / src / Gargantext / API / Routes.hs
index b1b53b2cd0a86e1dbfe2a45f6723f6407be4872c..71a7ed92a27cd7b41caaf93c69b542d3c68054eb 100644 (file)
@@ -17,7 +17,6 @@ Portability : POSIX
 {-# LANGUAGE KindSignatures       #-}
 {-# LANGUAGE ScopedTypeVariables  #-}
 {-# LANGUAGE TypeFamilies         #-}
-{-# LANGUAGE UndecidableInstances #-}
 
 ---------------------------------------------------------------------
 module Gargantext.API.Routes
@@ -41,7 +40,7 @@ import Gargantext.Database.Prelude (HasConfig(..))
 import Gargantext.Database.Admin.Types.Hyperdata
 import Gargantext.Database.Admin.Types.Node
 import Gargantext.Prelude
-import Gargantext.Prelude.Config (GargConfig(..))
+import Gargantext.Prelude.Config (gc_max_docs_scrapers)
 import Servant
 import Servant.Auth as SA
 import Servant.Auth.Swagger ()
@@ -74,7 +73,7 @@ type GargAPI' =
                    -- TODO-ACCESS here we want to request a particular header for
            -- auth and capabilities.
           :<|> GargPrivateAPI
-          :<|> "public" :> Public.API
+          :<|> "public"      :> Public.API
 
 
 type GargPrivateAPI = SA.Auth '[SA.JWT, SA.Cookie] AuthenticatedUser
@@ -250,9 +249,8 @@ addCorpusWithQuery :: User -> GargServer New.AddWithQuery
 addCorpusWithQuery user cid =
   serveJobsAPI $
     JobFunction (\q log -> do
-      conf <- view hasConfig
-      let limit = Just $ _gc_max_docs_scrapers conf
-      New.addToCorpusWithQuery user cid q limit (liftBase . log)
+      limit <- view $ config . gc_max_docs_scrapers
+      New.addToCorpusWithQuery user cid q (Just limit) (liftBase . log)
       {- let log' x = do
         printDebug "addToCorpusWithQuery" x
         liftBase $ log x