Corpus Form to import from pads: change default value All to EN

57fa0591 · Fabien Manière · fbbe4000 · 57fa0591
Commit 57fa0591 authored Sep 26, 2023 by Fabien Manière
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

WriteNodesDocuments.purs ...mponents/Forest/Tree/Node/Action/WriteNodesDocuments.purs +3 -1

No files found.
--- a/src/Gargantext/Components/Forest/Tree/Node/Action/WriteNodesDocuments.purs
+++ b/src/Gargantext/Components/Forest/Tree/Node/Action/WriteNodesDocuments.purs
@@ -62,8 +62,10 @@ actionWriteNodesDocumentsWithLangsCpt :: R.Component ActionWriteNodesDocumentsWi
 actionWriteNodesDocumentsWithLangsCpt = here.component "actionWriteNodesDocumentsWithLangs" cpt where
  cpt { dispatch, id, langs, session } _ = do

+    -- lang' /\ langBox
+    --     <- R2.useBox' $ fromMaybe EN $ A.head langs
    lang' /\ langBox
-        <- R2.useBox' $ fromMaybe EN $ A.head langs
+        <- R2.useBox' EN
    selection' /\ selectionBox
        <- R2.useBox' ListSelection.MyListsFirst
    paragraphs' /\ paragraphBox