[FIX] warnings

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

@@ -7,14 +7,20 @@ import Data.Generic.Rep.Show (genericShow)
 import Data.Maybe (Maybe(..))
 import Data.Newtype (class Newtype)
 import Effect.Aff (Aff)
-import Prelude hiding (div)
-
+import Gargantext.Prelude
 import Gargantext.Components.Lang (Lang)
 import Gargantext.Routes (SessionRoute(..))
-import Gargantext.Sessions (Session, get, put, post, delete)
 import Gargantext.Routes as GR
+import Gargantext.Sessions (Session, get, put, post, delete)
 import Gargantext.Types  as GT
 
+type Props =
+  ( dispatch :: Action -> Aff Unit
+  , id       :: Int
+  , nodeType :: GT.NodeType
+  , session  :: Session
+  )
+
 data Action = AddNode String GT.NodeType
             | DeleteNode
             | UpdateNode  GT.AsyncTaskWithType
@@ -24,7 +30,6 @@ data Action = AddNode String GT.NodeType
             | RefreshTree
             | ShareNode   String
 
-
 instance showShow :: Show Action where
   show DeleteNode       = "DeleteNode"
   show RefreshTree      = "RefreshTree"
@@ -35,12 +40,7 @@ instance showShow :: Show Action where
   show (AddNode   _ _)  = "AddNode"
   show (UploadFile  _ _ _ _)= "UploadFile"
 
------------------------------------------------------
--- TODO Delete with asyncTaskWithType
-deleteNode :: Session -> GT.ID -> Aff GT.ID
-deleteNode session nodeId = delete session $ NodeAPI GT.Node (Just nodeId) ""
 -----------------------------------------------------------------------
-
 icon :: Action -> String
 icon DeleteNode = "trash"
 icon (AddNode _ _)    = "plus"
@@ -57,15 +57,11 @@ text RefreshTree = "Refresh Tree !"
 text (ShareNode _)  = "Share !"
 -----------------------------------------------------------------------
 
+-- TODO move code below elsewhere
 
-type Props =
-  ( dispatch :: Action -> Aff Unit
-  , id       :: Int
-  , nodeType :: GT.NodeType
-  , session  :: Session
-  )
-
--- TODO remove these types from here
+-- TODO Delete with asyncTaskWithType
+deleteNode :: Session -> GT.ID -> Aff GT.ID
+deleteNode session nodeId = delete session $ NodeAPI GT.Node (Just nodeId) ""
 
 data FileType = CSV | CSV_HAL | WOS | PresseRIS
 
@@ -77,6 +73,4 @@ instance eqFileType :: Eq FileType where
 instance showFileType :: Show FileType where
     show = genericShow
 
-
-
 newtype UploadFileContents = UploadFileContents String

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

 module Gargantext.Components.Forest.Tree.Node.Action.Add where
 
+import Data.Argonaut (class EncodeJson, jsonEmptyObject, (:=), (~>))
 import Data.Array (length, head)
-import Data.Argonaut (class DecodeJson, class EncodeJson, decodeJson, jsonEmptyObject, (.:), (:=), (~>))
 import Data.Maybe (Maybe(..), fromMaybe)
--- import Data.Newtype (class Newtype)
 import Data.Tuple.Nested ((/\))
 import Effect.Aff (Aff, launchAff)
 import Effect.Uncurried (mkEffectFn1)
-import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
 import Gargantext.Components.Forest.Tree.Node (SettingsBox(..), settingsBox)
+import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
 import Gargantext.Components.Forest.Tree.Node.Tools (submitButton)
-import Gargantext.Types (NodeType(..), readNodeType)
-import Gargantext.Utils.Reactix as R2
-import Gargantext.Sessions (Session, post)
 import Gargantext.Routes as GR
+import Gargantext.Sessions (Session, post)
 import Gargantext.Types  as GT
+import Gargantext.Types (NodeType(..), readNodeType)
+import Gargantext.Utils.Reactix as R2
 import Prelude (Unit, bind, const, discard, map, pure, show, ($), (<>), (>), (<<<))
 import Reactix as R
 import Reactix.DOM.HTML as H

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

 module Gargantext.Components.Forest.Tree.Node.Action.CopyFrom where
 
-import Data.Array as A
-import Data.Maybe (Maybe(..), fromJust)
-import Data.Newtype (class Newtype)
-import Data.Tuple (Tuple(..))
-import Data.Tuple.Nested ((/\))
 import DOM.Simple.Console (log2)
-import Effect.Aff (Aff, launchAff)
-import Effect.Class (liftEffect)
-import Effect (Effect)
-import Partial.Unsafe (unsafePartial)
-import React.SyntheticEvent as E
-import Reactix as R
-import Reactix.DOM.HTML as H
-import URI.Extra.QueryPairs as QP
-import Web.File.FileReader.Aff (readAsText)
-
-import Gargantext.Prelude (class Show, Unit, bind, const, discard, map, pure, show, unit, void, ($), (&&), (/=), (<>), id)
-
-import Gargantext.Components.Lang (readLang, Lang(..))
-import Gargantext.Components.Forest.Tree.Node.Action (Action(..), Props)
-import Gargantext.Components.Forest.Tree.Node.FTree (FTree, ID, LNode(..), NTree(..))
+import Data.Array as A
+import Data.Maybe (Maybe(..))
+import Effect.Aff (Aff)
+import Gargantext.Components.Forest.Tree.Node.Action (Props)
+import Gargantext.Components.Forest.Tree.Node.FTree (FTree, LNode(..), NTree(..))
 import Gargantext.Hooks.Loader (useLoader)
+import Gargantext.Prelude (discard, map, pure, show, unit, ($), (&&), (/=), (<>))
 import Gargantext.Routes as GR
-import Gargantext.Sessions (Session(..), postWwwUrlencoded, get)
+import Gargantext.Sessions (Session(..), get)
 import Gargantext.Types as GT
-import Gargantext.Utils.Reactix as R2
+import Reactix as R
+import Reactix.DOM.HTML as H
 
 
 loadNode :: Session -> GT.ID -> Aff FTree

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

 module Gargantext.Components.Forest.Tree.Node.Action.Upload where
 
-import Data.Array as A
 import Data.Maybe (Maybe(..), fromJust)
 import Data.Newtype (class Newtype)
 import Data.Tuple (Tuple(..))
 import Data.Tuple.Nested ((/\))
-import DOM.Simple.Console (log2)
+import Effect (Effect)
 import Effect.Aff (Aff, launchAff)
 import Effect.Class (liftEffect)
-import Effect (Effect)
+import Gargantext.Components.Forest.Tree.Node.Action (Action(..), Props, FileType(..), UploadFileContents(..))
+import Gargantext.Components.Lang (readLang, Lang(..))
+import Gargantext.Prelude (class Show, Unit, discard, bind, const, id, map, pure, show, unit, void, ($))
+import Gargantext.Routes as GR
+import Gargantext.Sessions (Session, postWwwUrlencoded)
+import Gargantext.Types as GT
+import Gargantext.Types (ID)
+import Gargantext.Utils.Reactix as R2
 import Partial.Unsafe (unsafePartial)
 import React.SyntheticEvent as E
 import Reactix as R
@@ -16,17 +22,6 @@ import Reactix.DOM.HTML as H
 import URI.Extra.QueryPairs as QP
 import Web.File.FileReader.Aff (readAsText)
 
-import Gargantext.Prelude (class Show, Unit, bind, const, discard, map, pure, show, unit, void, ($), (&&), (/=), (<>), id)
-
-import Gargantext.Components.Lang (readLang, Lang(..))
-import Gargantext.Components.Forest.Tree.Node.Action (Action(..), Props, FileType(..), UploadFileContents(..))
-import Gargantext.Components.Forest.Tree.Node.FTree (FTree, ID, LNode(..), NTree(..))
-import Gargantext.Hooks.Loader (useLoader)
-import Gargantext.Routes as GR
-import Gargantext.Sessions (Session(..), postWwwUrlencoded, get)
-import Gargantext.Types as GT
-import Gargantext.Utils.Reactix as R2
-
 -- UploadFile Action
 -- file upload types
 data DroppedFile =