Commit 57fa0591 authored by Fabien Manière's avatar Fabien Manière

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

parent fbbe4000
Pipeline #4625 failed with stage
in 0 seconds
......@@ -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
......
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