[Upload] types fix

src/Gargantext/Components/Forest/Tree/Node/Action/Upload.purs

@@ -50,24 +50,28 @@ uploadFileViewCpt d = R.hooksComponent "UploadFileView" cpt
             , H.div {} [ R2.select {className: "col-md-12 form-control"
                                    , on: {change: onChangeFileType fileType}
                                    }
-                          ( map renderOption [ CSV
-                                             , CSV_HAL
-                                             , WOS
-                                             , PresseRIS
-                                             ]
+                          ( map renderOptionFT [ CSV
+                                               , CSV_HAL
+                                               , WOS
+                                               , PresseRIS
+                                               ]
                            )
                        ]
 
 
             , 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 ]
             ]
 
-    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
       blob <- R2.inputFileBlob e