[toml] output nlp_default as EN as well

9d454100 · Przemyslaw Kaminski · 3681ba9f · 9d454100
Verified Commit 9d454100 authored Sep 19, 2024 by Przemyslaw Kaminski
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

NLP.hs src/Gargantext/Core/Config/NLP.hs +3 -1

No files found.
--- a/src/Gargantext/Core/Config/NLP.hs
+++ b/src/Gargantext/Core/Config/NLP.hs
@@ -56,7 +56,9 @@ instance ToValue NLPConfig where
  toValue = defaultTableToValue
 instance ToTable NLPConfig where
  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