[epo] add gc_epo_api_url to config

parent 7e800cce
cabal-version: 3.0 cabal-version: 1.12
-- This file has been generated from package.yaml by hpack version 0.35.2. -- This file has been generated from package.yaml by hpack version 0.35.2.
-- --
...@@ -12,7 +12,7 @@ bug-reports: https://github.com/githubuser/gargantext-prelude/issues ...@@ -12,7 +12,7 @@ bug-reports: https://github.com/githubuser/gargantext-prelude/issues
author: Team Hello Word / CNRS author: Team Hello Word / CNRS
maintainer: team@gargantext.org maintainer: team@gargantext.org
copyright: 2021 HW/CNRS/Alexandre Delanoë copyright: 2021 HW/CNRS/Alexandre Delanoë
license: AGPL-3.0-only license: AGPL-3
license-file: LICENSE license-file: LICENSE
build-type: Simple build-type: Simple
extra-source-files: extra-source-files:
...@@ -84,7 +84,7 @@ library ...@@ -84,7 +84,7 @@ library
, mtl , mtl
, network , network
, network-uri , network-uri
, password ^>= 3.0.2.1 , password
, protolude , protolude
, qrcode-core , qrcode-core
, qrcode-juicypixels , qrcode-juicypixels
...@@ -111,6 +111,7 @@ executable gargantext-prelude-exe ...@@ -111,6 +111,7 @@ executable gargantext-prelude-exe
FlexibleContexts FlexibleContexts
FlexibleInstances FlexibleInstances
GeneralizedNewtypeDeriving GeneralizedNewtypeDeriving
ImportQualifiedPost
MultiParamTypeClasses MultiParamTypeClasses
NamedFieldPuns NamedFieldPuns
NoImplicitPrelude NoImplicitPrelude
...@@ -173,6 +174,7 @@ test-suite gargantext-prelude-test ...@@ -173,6 +174,7 @@ test-suite gargantext-prelude-test
FlexibleContexts FlexibleContexts
FlexibleInstances FlexibleInstances
GeneralizedNewtypeDeriving GeneralizedNewtypeDeriving
ImportQualifiedPost
MultiParamTypeClasses MultiParamTypeClasses
NamedFieldPuns NamedFieldPuns
NoImplicitPrelude NoImplicitPrelude
......
...@@ -53,6 +53,8 @@ data GargConfig = GargConfig { _gc_backend_name :: !T.Text ...@@ -53,6 +53,8 @@ data GargConfig = GargConfig { _gc_backend_name :: !T.Text
, _gc_js_job_timeout :: !Integer , _gc_js_job_timeout :: !Integer
, _gc_js_id_timeout :: !Integer , _gc_js_id_timeout :: !Integer
, _gc_epo_api_url :: !T.Text
} }
deriving (Generic, Show) deriving (Generic, Show)
...@@ -95,4 +97,5 @@ readConfig fp = do ...@@ -95,4 +97,5 @@ readConfig fp = do
, _gc_pubmed_api_key = val' "PUBMED_API_KEY" , _gc_pubmed_api_key = val' "PUBMED_API_KEY"
, _gc_js_job_timeout = read $ cs $ val' "JS_JOB_TIMEOUT" , _gc_js_job_timeout = read $ cs $ val' "JS_JOB_TIMEOUT"
, _gc_js_id_timeout = read $ cs $ val' "JS_ID_TIMEOUT" , _gc_js_id_timeout = read $ cs $ val' "JS_ID_TIMEOUT"
, _gc_epo_api_url = cs $ val' "EPO_API_URL"
} }
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