[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

@@ -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) ""
+
+