Skip to content

haskell-gargantext
haskell-gargantext
Commit 92e5ee63 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[Tree] debug

parent 52594085
Show whitespace changes
Inline Side-by-side
Showing with 4 additions and 1 deletion
src/Gargantext/API/GraphQL/TreeFirstLevel.hs
View file @ 92e5ee63
...@@ -51,8 +51,11 @@ dbTree :: (CmdCommon env) => ...@@ -51,8 +51,11 @@ dbTree :: (CmdCommon env) =>
dbTree root_id = do dbTree root_id = do
let rId = NodeId root_id let rId = NodeId root_id
t <- lift $ T.tree T.TreeFirstLevel rId allNodeTypes t <- lift $ T.tree T.TreeFirstLevel rId allNodeTypes
lift $ printDebug "dbTree t" t
n <- lift $ getNode $ NodeId root_id n <- lift $ getNode $ NodeId root_id
lift $ printDebug "dbTree n" n
let pId = toParentId n let pId = toParentId n
lift $ printDebug "dbTree pId" pId
pure $ toTree rId pId t pure $ toTree rId pId t
where where
toParentId N.Node { _node_parent_id } = _node_parent_id toParentId N.Node { _node_parent_id } = _node_parent_id
......
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