Merge remote-tracking branch 'cgenie/master'

src/Gargantext/Prelude.hs

@@ -361,4 +361,3 @@ hasDuplicatesWith  seen (x:xs) =
     -- we'll add it the the set of previously seen items and process the rest of the
     -- list against that.
     x `Set.member` seen || hasDuplicatesWith (Set.insert x seen) xs
-

src/Gargantext/Prelude/Clock.hs

@@ -23,5 +23,3 @@ getTime = liftBase $ Clock.getTime Clock.ProcessCPUTime
 
 hasTime :: Formatting.Internal.Format r (Clock.TimeSpec -> Clock.TimeSpec -> r)
 hasTime = timeSpecs
-
-

src/Gargantext/Prelude/Config.hs

@@ -48,6 +48,8 @@ data GargConfig = GargConfig { _gc_backend_name      :: !T.Text
 
                              , _gc_max_docs_parsers  :: !Integer
                              , _gc_max_docs_scrapers :: !Integer
+
+                             , _gc_pubmed_api_key    :: !T.Text
                              }
   deriving (Generic, Show)
 
@@ -87,4 +89,5 @@ readConfig fp = do
     , _gc_frame_istex_url   = stripRight '/' $ val' "FRAME_ISTEX_URL"
     , _gc_max_docs_parsers  = read $ cs $ val' "MAX_DOCS_PARSERS"
     , _gc_max_docs_scrapers = read $ cs $ val' "MAX_DOCS_SCRAPERS"
+    , _gc_pubmed_api_key    = val' "PUBMED_API_KEY"
     }