Skip to content

haskell-gargantext
haskell-gargantext
Verified Commit 9d454100 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[toml] output nlp_default as EN as well

parent 3681ba9f
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 1 deletion
src/Gargantext/Core/Config/NLP.hs
View file @ 9d454100
...@@ -56,7 +56,9 @@ instance ToValue NLPConfig where ...@@ -56,7 +56,9 @@ instance ToValue NLPConfig where
toValue = defaultTableToValue toValue = defaultTableToValue
instance ToTable NLPConfig where instance ToTable NLPConfig where
toTable (NLPConfig { .. }) = toTable (NLPConfig { .. }) =
table [ k .= v | (k, v) <- Map.toList _nlp_languages ] table ([ k .= v | (k, v) <- Map.toList _nlp_languages ]
-- output the default "EN" language as well
<> [ ("EN" :: Text) .= _nlp_default ])
-- readConfig :: SettingsFile -> IO NLPConfig -- readConfig :: SettingsFile -> IO NLPConfig
......
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