Skip to content

P
purescript-gargantext
Commit 8d608e2d authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[Upload] types fix

parent e056a48d
Hide whitespace changes
Inline Side-by-side
Showing with 11 additions and 7 deletions
src/Gargantext/Components/Forest/Tree/Node/Action/Upload.purs
View file @ 8d608e2d
...@@ -50,24 +50,28 @@ uploadFileViewCpt d = R.hooksComponent "UploadFileView" cpt ...@@ -50,24 +50,28 @@ uploadFileViewCpt d = R.hooksComponent "UploadFileView" cpt
, H.div {} [ R2.select {className: "col-md-12 form-control" , H.div {} [ R2.select {className: "col-md-12 form-control"
, on: {change: onChangeFileType fileType} , on: {change: onChangeFileType fileType}
} }
( map renderOption [ CSV ( map renderOptionFT [ CSV
, CSV_HAL , CSV_HAL
, WOS , WOS
, PresseRIS , PresseRIS
] ]
) )
] ]
, H.div {} [ R2.select {className: "col-md-12 form-control" , H.div {} [ R2.select {className: "col-md-12 form-control"
, on: {change: onChangeLang lang} , on: {change: onChangeLang lang}
} (map renderOption [EN, FR]) } (map renderOptionLang [EN, FR])
] ]
, H.div {} [ uploadButton d id mContents fileType lang ] , H.div {} [ uploadButton d id mContents fileType lang ]
] ]
renderOption opt = H.option {} [ H.text $ show opt ] renderOptionLang :: Lang -> R.Element
renderOptionLang opt = H.option {} [ H.text $ show opt ]
renderOptionFT :: FileType -> R.Element
renderOptionFT opt = H.option {} [ H.text $ show opt ]
onChangeContents (mContents /\ setMContents) e = do onChangeContents (mContents /\ setMContents) e = do
blob <- R2.inputFileBlob e blob <- R2.inputFileBlob 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