Skip to content

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

[Tree] debug

parent 52594085
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 1 deletion
gargantext.cabal
View file @ 92e5ee63
...@@ -5,7 +5,7 @@ cabal-version: 1.12 ...@@ -5,7 +5,7 @@ cabal-version: 1.12
-- see: https://github.com/sol/hpack -- see: https://github.com/sol/hpack
name: gargantext name: gargantext
version: 0.0.6.9.9.5.1 version: 0.0.6.9.9.5.1
synopsis: Search, map, share synopsis: Search, map, share
description: Please see README.md description: Please see README.md
category: Data category: Data
......
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