replace _nlp_all with _nlp_default

src/Gargantext/Prelude/NLP.hs

@@ -31,20 +31,17 @@ readConfig :: FilePath -> IO NLPConfig
 readConfig fp = do
   ini <- readIniFile' fp
   let val' = val ini iniSection
-  let lang_default_text = "EN" -- Change this value by one of your choice: "All" or "FR", "EN"
+  let lang_default_text = "EN" -- Change this value by one of your choice: "All", "FR", or "EN"
 
-  -- let m_nlp_all = parseURI $ cs $ val'  
   let m_nlp_default = parseURI $ cs $ val' lang_default_text
 
   let m_nlp_keys = filter (\k -> k `notElem` [lang_default_text]) $ fromRight [] $ Ini.keys iniSection ini
   let m_nlp_other = listToMaybeAll $ (\k -> (,) k <$> (parseURI $ cs $ val' k)) <$> m_nlp_keys
 
-  -- let mRet = NLPConfig <$> m_nlp_all <*> (Map.fromList <$> m_nlp_other)
   let mRet = NLPConfig <$> m_nlp_default <*> (Map.fromList <$> m_nlp_other)
 
   case mRet of
-    Nothing -> panicTrace $ T.concat [ "Cannot read config file: _nlp_all = "
-                                    --  , T.pack $ show m_nlp_all
+    Nothing -> panicTrace $ T.concat [ "Cannot read config file: _nlp_default = "
                                      , T.pack $ show m_nlp_default
                                      , ", _nlp_other = "
                                      , T.pack $ show m_nlp_other ]

src/Gargantext/Prelude/NLP/Types.hs

@@ -21,7 +21,7 @@ import Network.Socket (PortNumber)
 import Network.URI (URI)
 import Protolude
 
-data NLPConfig = NLPConfig { _nlp_all   :: URI
+data NLPConfig = NLPConfig { _nlp_default   :: URI
                            , _nlp_languages :: (Map.Map T.Text URI) }
   deriving (Generic, Show)