Merge branch 'master' of https://gitlab.iscpif.fr/cgenie/haskell-gargantext-prelude

gargantext-prelude.cabal

 cabal-version: 1.12
 
--- This file has been generated from package.yaml by hpack version 0.33.0.
+-- This file has been generated from package.yaml by hpack version 0.34.4.
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 6e48706c178c8a0ee4f59e1fb5299dd49cee97a6284b076799aed4905fc8e3f8
+-- hash: b57ed500a19dd72c1f7cf70ee61accb0235eb575fdaaf0c9a291093db2a99d34
 
 name:           gargantext-prelude
 version:        0.1.0.0
@@ -42,7 +42,16 @@ library
       Paths_gargantext_prelude
   hs-source-dirs:
       src
-  default-extensions: DataKinds DeriveGeneric FlexibleContexts FlexibleInstances GeneralizedNewtypeDeriving MultiParamTypeClasses NoImplicitPrelude OverloadedStrings RankNTypes
+  default-extensions:
+      DataKinds
+      DeriveGeneric
+      FlexibleContexts
+      FlexibleInstances
+      GeneralizedNewtypeDeriving
+      MultiParamTypeClasses
+      NoImplicitPrelude
+      OverloadedStrings
+      RankNTypes
   build-depends:
       MonadRandom
     , SHA
@@ -82,7 +91,16 @@ executable gargantext-prelude-exe
       Paths_gargantext_prelude
   hs-source-dirs:
       app
-  default-extensions: DataKinds DeriveGeneric FlexibleContexts FlexibleInstances GeneralizedNewtypeDeriving MultiParamTypeClasses NoImplicitPrelude OverloadedStrings RankNTypes
+  default-extensions:
+      DataKinds
+      DeriveGeneric
+      FlexibleContexts
+      FlexibleInstances
+      GeneralizedNewtypeDeriving
+      MultiParamTypeClasses
+      NoImplicitPrelude
+      OverloadedStrings
+      RankNTypes
   ghc-options: -threaded -rtsopts -with-rtsopts=-N
   build-depends:
       MonadRandom
@@ -125,7 +143,16 @@ test-suite gargantext-prelude-test
       Paths_gargantext_prelude
   hs-source-dirs:
       test
-  default-extensions: DataKinds DeriveGeneric FlexibleContexts FlexibleInstances GeneralizedNewtypeDeriving MultiParamTypeClasses NoImplicitPrelude OverloadedStrings RankNTypes
+  default-extensions:
+      DataKinds
+      DeriveGeneric
+      FlexibleContexts
+      FlexibleInstances
+      GeneralizedNewtypeDeriving
+      MultiParamTypeClasses
+      NoImplicitPrelude
+      OverloadedStrings
+      RankNTypes
   ghc-options: -threaded -rtsopts -with-rtsopts=-N
   build-depends:
       MonadRandom

src/Gargantext/Prelude/Config.hs

@@ -44,6 +44,7 @@ data GargConfig = GargConfig { _gc_url              :: !T.Text
                              , _gc_frame_searx_url  :: !T.Text
                              , _gc_frame_istex_url  :: !T.Text
 
+                             , _gc_max_docs_parsers :: !Integer
                              , _gc_max_docs_scrapers :: !Integer
                              }
   deriving (Generic, Show)
@@ -72,6 +73,7 @@ readConfig fp = do
                     (stripRight '/' $ val "FRAME_VISIO_URL")
                     (stripRight '/' $ val "FRAME_SEARX_URL")
                     (stripRight '/' $ val "FRAME_ISTEX_URL")
+                    (read $ cs $ val "MAX_DOCS_PARSERS")
                     (read $ cs $ val "MAX_DOCS_SCRAPERS")
 
 {- UNUSED