Skip to content

P
purescript-gargantext
Commit 13746305 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[WIP] Removing ALL Universal

parent d6e5600f
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 3 deletions
src/Gargantext/Components/Forest/Tree/Node/Action/Upload.purs
View file @ 13746305
......@@ -752,7 +752,7 @@ uploadFrameCalcViewWithLangsCpt = here.component "uploadFrameCalcViewWithLangs"
where
cpt { dispatch, langs, session } _ = do
lang' /\ langBox
<- R2.useBox' $ fromMaybe Universal $ A.head langs
<- R2.useBox' $ fromMaybe EN $ A.head langs
selection' /\ selectionBox
<- R2.useBox' ListSelection.MyListsFirst
......
src/Gargantext/Components/Forest/Tree/Node/Action/WriteNodesDocuments.purs
View file @ 13746305
......@@ -63,7 +63,7 @@ actionWriteNodesDocumentsWithLangsCpt = here.component "actionWriteNodesDocument
cpt { dispatch, id, langs, session } _ = do
lang' /\ langBox
<- R2.useBox' $ fromMaybe Universal $ A.head langs
<- R2.useBox' $ fromMaybe EN $ A.head langs
selection' /\ selectionBox
<- R2.useBox' ListSelection.MyListsFirst
paragraphs' /\ paragraphBox
......@@ -93,7 +93,7 @@ actionWriteNodesDocumentsWithLangsCpt = here.component "actionWriteNodesDocument
B.formSelect'
{ callback: flip T.write_ langBox
, value: lang'
, list: langs <> [ No_extraction, Universal ]
, list: langs <> [ No_extraction ]
}
[]
]
......
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