[GRAPH] insert from tree

5fa1eae2 · Alexandre Delanoë · c6cff3e0 · 5fa1eae2
Commit 5fa1eae2 authored May 21, 2020 by Alexandre Delanoë
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

Node.hs src/Gargantext/Database/Action/Node.hs +5 -0

No files found.
--- a/src/Gargantext/Database/Action/Node.hs
+++ b/src/Gargantext/Database/Action/Node.hs
@@ -91,5 +91,10 @@ mkNodeWithParent NodeList (Just i) uId name =
    where
      hd = defaultAnnuaire

+mkNodeWithParent NodeGraph (Just i) uId name =
+   insertNodesWithParentR (Just i) [node NodeGraph "Graph" hd Nothing uId]
+    where
+      hd = arbitraryGraph
+
 mkNodeWithParent _ _ _ _       = nodeError NotImplYet