Commit 3b1fe0df authored by Alexandre Delanoë's avatar Alexandre Delanoë

[LANG] FIX upload, types needed.

parent ae8c3ae1
......@@ -61,14 +61,18 @@ uploadFileViewCpt d = R.hooksComponent "UploadFileView" cpt
, H.div {} [ R2.select {className: "col-md-12 form-control"
, on: {change: onChangeLang lang}
} (map renderOption [EN, FR])
} (map renderOptionLang [EN, FR])
]
, H.div {} [ uploadButton d id mContents fileType lang ]
]
renderOptionLang :: FileType -> R.Element
renderOption opt = H.option {} [ H.text $ show opt ]
renderOptionLang :: Lang -> R.Element
renderOptionLang opt = H.option {} [ H.text $ show opt ]
onChangeContents (mContents /\ setMContents) e = do
blob <- R2.inputFileBlob e
E.preventDefault e
......
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