[tree] Resolve maplist upload modal issue

* #440

src/Gargantext/Components/Forest/Tree.purs

@@ -351,6 +351,7 @@ uploadFile' nodeType fileType fileFormat lang mName contents p@{ boxes: { errors
   handleRESTError errors eTask $ \task -> liftEffect $ do
     GAT.insert id task tasks
     here.log2 "[uploadFile'] UploadFile, uploaded, task:" task
+    closeBox p
 
 uploadArbitraryFile' fileFormat mName blob p@{ boxes: { errors, tasks }, session, tree: (NTree (LNode { id }) _) } selection = do
   eTask <- uploadArbitraryFile session id { blob, fileFormat, mName } selection

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

@@ -42,7 +42,7 @@ icon (ShareTeam   _)                = glyphiconNodeAction Share
 icon (AddContact  _)                = glyphiconNodeAction Share
 icon (SharePublic _ )               = glyphiconNodeAction (Publish { subTreeParams : SubTreeParams {showtypes:[], valitypes:[] }})
 icon (DoSearch   _)                 = glyphiconNodeAction SearchBox
-icon (UploadFile _ _ _ _ _ _ _)       = glyphiconNodeAction Upload
+icon (UploadFile _ _ _ _ _ _ _)     = glyphiconNodeAction Upload
 icon (UploadArbitraryFile _ _ _ _ ) = glyphiconNodeAction Upload
 icon UploadFrameCalc                = glyphiconNodeAction Upload
 icon  RefreshTree                   = glyphiconNodeAction Refresh
@@ -66,7 +66,7 @@ text (ShareTeam   _      )          = "Share with team !"
 text (AddContact  _      )          = "Add contact !"
 text (SharePublic _      )          = "Publish !"
 text (DoSearch    _      )          = "Launch search !"
-text (UploadFile _ _ _ _ _ _ _)      = "Upload File !"
+text (UploadFile _ _ _ _ _ _ _)     = "Upload File !"
 text (UploadArbitraryFile _ _  _ _) = "Upload arbitrary file !"
 text UploadFrameCalc                = "Upload frame calc"
 text  RefreshTree                   = "Refresh Tree !"