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
Pipeline #5836 canceled with stage
    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