[Tree] debug

gargantext.cabal

@@ -5,7 +5,7 @@ cabal-version: 1.12
 -- see: https://github.com/sol/hpack
 
 name:           gargantext
-version: 0.0.6.9.9.5.1
+version:        0.0.6.9.9.5.1
 synopsis:       Search, map, share
 description:    Please see README.md
 category:       Data

src/Gargantext/API/GraphQL/TreeFirstLevel.hs

@@ -51,8 +51,11 @@ dbTree :: (CmdCommon env) =>
 dbTree root_id = do
   let rId = NodeId root_id
   t <- lift $ T.tree T.TreeFirstLevel rId allNodeTypes
+  lift $ printDebug "dbTree t" t
   n <- lift $ getNode $ NodeId root_id
+  lift $ printDebug "dbTree n" n
   let pId = toParentId n
+  lift $ printDebug "dbTree pId" pId
   pure $ toTree rId pId t
   where
     toParentId N.Node { _node_parent_id } = _node_parent_id