[Node creation] adding Dashboard

src/Gargantext/Database/Action/Node.hs

@@ -95,6 +95,13 @@ mkNodeWithParent NodeGraph (Just i) uId name =
     where
       hd = arbitraryGraph
 
+mkNodeWithParent NodeDashboard (Just i) uId name =
+   insertNodesWithParentR (Just i) [node NodeDashboard name hd Nothing uId]
+    where
+      hd = arbitraryDashboard
+
+
+
 mkNodeWithParent NodeFrameWrite i u n =
   mkNodeWithParent_ConfigureHyperdata NodeFrameWrite i u n
 

src/Gargantext/Database/Admin/Types/Node.hs

@@ -280,6 +280,8 @@ instance ToSchema      NodeType
 instance Arbitrary NodeType where
   arbitrary = elements allNodeTypes
 
+
+
 ------------------------------------------------------------------------
 -- Instances
 ------------------------------------------------------------------------
@@ -310,6 +312,3 @@ instance QueryRunnerColumnDefault (Nullable PGInt4) NodeId
   where
     queryRunnerColumnDefault = fieldQueryRunnerColumn
 
-
-
-