Commit ea209680 authored by Fabien Maniere's avatar Fabien Maniere

fix an error / wrong value for NoList, and add en information text on select

parent 2e43c474
Pipeline #7299 canceled with stages
......@@ -300,6 +300,13 @@ uploadFileViewWithLangsCpt = here.component "uploadFileViewWithLangs" cpt
, R2.row
[ H.div { className: "col-12 form-group" }
[ H.label {} [ H.text "Please choose the list of terms to use:" ]
, H.details { className: "small p-1 pl-3 pb-2 alert-light" }
[ H.summary {} [ H.text "Infos about this choice:" ]
, H.p {}
[ H.text "- My list first: the analysis will generate a list of terms based on your previous lists of terms"
, H.br {}
, H.text "- NoList: the analysis will not generate any terms" ]
]
, ListSelection.selection { selection, session } []
]
]
......
......@@ -19,7 +19,7 @@ derive instance Generic Selection _
instance Show Selection where
show MyListsFirst = "My lists first"
-- show OtherListsFirst = "Other lists first"
show NoList = "No list (the analysis will not generate any terms)"
show NoList = "NoList"
show (SelectedLists _) = "Selected lists"
instance Eq Selection where
......
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