Skip to content

P
purescript-gargantext
Commit 61156462 authored by Fabien Manière's avatar Fabien Manière
Browse files
Options

clean logs

parent 6ff0feb6
Hide whitespace changes
Inline Side-by-side
Showing with 0 additions and 3 deletions
src/Gargantext/Components/Forest/Tree.purs
View file @ 61156462
...@@ -11,7 +11,6 @@ import Data.Traversable (intercalate, traverse, traverse_) ...@@ -11,7 +11,6 @@ import Data.Traversable (intercalate, traverse, traverse_)
import Data.Tuple.Nested ((/\)) import Data.Tuple.Nested ((/\))
import Effect.Aff (Aff) import Effect.Aff (Aff)
import Effect.Class (liftEffect) import Effect.Class (liftEffect)
import Effect.Console as Console
import Gargantext.AsyncTasks as GAT import Gargantext.AsyncTasks as GAT
import Gargantext.Components.App.Store as Store import Gargantext.Components.App.Store as Store
import Gargantext.Components.Bootstrap as B import Gargantext.Components.Bootstrap as B
...@@ -349,10 +348,8 @@ addContact params { boxes: { errors }, session, tree: (NTree (LNode {id}) _) } = ...@@ -349,10 +348,8 @@ addContact params { boxes: { errors }, session, tree: (NTree (LNode {id}) _) } =
addNode' name nodeType p@{ boxes: { errors, forestOpen }, session, tree: (NTree (LNode { id }) _) } = do addNode' name nodeType p@{ boxes: { errors, forestOpen }, session, tree: (NTree (LNode { id }) _) } = do
eId <- addNode session id $ AddNodeValue { name, nodeType } eId <- addNode session id $ AddNodeValue { name, nodeType }
-- here.log2 "id added: " $ show id
handleRESTError (R2.herePrefix here "[addNode']") errors eId $ \_id -> liftEffect $ do handleRESTError (R2.herePrefix here "[addNode']") errors eId $ \_id -> liftEffect $ do
liftEffect $ T.modify_ (openNodesInsert (mkNodeId session id)) forestOpen liftEffect $ T.modify_ (openNodesInsert (mkNodeId session id)) forestOpen
liftEffect $ Console.log $ "id added: " <> show id
refreshTree p refreshTree p
uploadFile' nodeType fileType fileFormat lang mName contents p@{ boxes: { errors, tasks }, session, tree: (NTree (LNode { id }) _) } selection = do uploadFile' nodeType fileType fileFormat lang mName contents p@{ boxes: { errors, tasks }, session, tree: (NTree (LNode { id }) _) } selection = do
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment