[REFACT] Forest.Tree.Action split delete

src/Gargantext/Components/Forest/Tree.purs

@@ -9,9 +9,10 @@ import Data.Tuple.Nested ((/\))
 import Effect.Aff (Aff)
 import Effect.Class (liftEffect)
 import Gargantext.AsyncTasks as GAT
-import Gargantext.Components.Forest.Tree.Node.Action (Action(..),deleteNode)
+import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
 import Gargantext.Components.Forest.Tree.Node.Action.Add (AddNodeValue(..), addNode)
 import Gargantext.Components.Forest.Tree.Node.Action.CopyFrom (loadNode)
+import Gargantext.Components.Forest.Tree.Node.Action.Delete (deleteNode)
 import Gargantext.Components.Forest.Tree.Node.Action.Rename (RenameValue(..), rename)
 import Gargantext.Components.Forest.Tree.Node.Action.Share (ShareValue(..), share)
 import Gargantext.Components.Forest.Tree.Node.Action.Upload (uploadFile)

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

@@ -31,8 +31,8 @@ data Action = AddNode String GT.NodeType
             | ShareNode   String
 
 instance showShow :: Show Action where
-  show DeleteNode       = "DeleteNode"
-  show RefreshTree      = "RefreshTree"
+  show  DeleteNode      = "DeleteNode"
+  show  RefreshTree     = "RefreshTree"
   show (ShareNode   _)  = "ShareNode"
   show (UpdateNode  _)  = "UpdateNode"
   show (RenameNode  _)  = "RenameNode"
@@ -42,9 +42,9 @@ instance showShow :: Show Action where
 
 -----------------------------------------------------------------------
 icon :: Action -> String
-icon DeleteNode = "trash"
-icon (AddNode _ _)    = "plus"
-icon _ = "hand-o-right"
+icon DeleteNode    = "trash"
+icon (AddNode _ _) = "plus"
+icon _             = "hand-o-right"
 
 text :: Action -> String
 text DeleteNode     = "Delete !"
@@ -59,10 +59,6 @@ text (ShareNode _)  = "Share !"
 
 -- TODO move code below elsewhere
 
--- 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
 
 derive instance genericFileType :: Generic FileType _

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

+module Gargantext.Components.Forest.Tree.Node.Action.Delete
+  where
+
+import Data.Maybe (Maybe(..))
+import Gargantext.Prelude
+import Effect.Aff (Aff)
+import Gargantext.Types  as GT
+import Gargantext.Sessions (Session, delete)
+import Gargantext.Routes (SessionRoute(..))
+
+-- TODO Delete with asyncTaskWithType
+deleteNode :: Session -> GT.ID -> Aff GT.ID
+deleteNode session nodeId = delete session $ NodeAPI GT.Node (Just nodeId) ""
+
+