[bootstrap v4] styling for file upload

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

@@ -71,22 +71,29 @@ type UploadFile =
 
 uploadFileView :: Record Props -> R.Element
 uploadFileView props = R.createElement uploadFileViewCpt props []
-
-uploadFileViewCpt :: R.Component Props
-uploadFileViewCpt = R.hooksComponentWithModule thisModule "uploadFileView" cpt
   where
+    uploadFileViewCpt :: R.Component Props
+    uploadFileViewCpt = R.hooksComponentWithModule thisModule "uploadFileView" cpt
+
     cpt {dispatch, id, nodeType} _ = do
       mFile    :: R.State (Maybe UploadFile) <- R.useState' Nothing
       fileType@(_ /\ setFileType)   <- R.useState'  CSV
       lang@( _chosenLang /\ setLang) <- R.useState' EN
 
-      let    bodies = [ H.div { className:"col-md-6 flex-space-around"}
+      let bodies =
+            [ R2.row
+              [ H.div { className:"col-12 flex-space-around"}
+                [ H.div { className: "form-group" }
                   [ H.input { type: "file"
+                            , className: "form-control"
                             , placeholder: "Choose file"
                             , on: {change: onChangeContents mFile}
                             }
                   ]
-                   , H.div {className:"col-md-3 flex-space-around"}
+                ]
+              ]
+            , R2.row
+              [ H.div {className:"col-6 flex-space-around"}
                 [ formChoiceSafe [ CSV
                                  , CSV_HAL
                                  , WOS
@@ -94,10 +101,12 @@ uploadFileViewCpt = R.hooksComponentWithModule thisModule "uploadFileView" cpt
                                  , Arbitrary
                                  ] CSV setFileType
                 ]
-
-                   , H.div {className:"col-md-3 flex-space-around"}
+              ]
+            , R2.row
+              [ H.div {className:"col-6 flex-space-around"}
                 [ formChoiceSafe [EN, FR, No_extraction, Universal] EN setLang ]
               ]
+            ]
 
       let footer = H.div {} [ uploadButton { dispatch
                                            , fileType