module Gargantext.Database ( module Gargantext.Database.Prelude
+ , module Gargantext.Database.Schema.NodeNode
+ , insertDB
-- , module Gargantext.Database.Bashql
)
where
-import Gargantext.Database.Prelude (connectGargandb)
--- import Gargantext.Database.Bashql
+import Gargantext.Prelude
+import Gargantext.Database.Prelude -- (connectGargandb)
+-- import Gargantext.Database.Schema.Node
+-- import Gargantext.Database.Query.Table.Node
+import Gargantext.Database.Schema.NodeNode -- (NodeNode(..))
+import Gargantext.Database.Query.Table.NodeNode
+
+class InsertDB a where
+ insertDB :: a -> Cmd err Int
+
+{-
+class DeleteDB a where
+ deleteDB :: a -> Cmd err Int
+-}
+
+instance InsertDB [NodeNode] where
+ insertDB = insertNodeNode
+
+
+{-
+instance InsertDB [Node a] where
+ insertDB = insertNodes'
+
+instance InsertDB [NodeNodeNgram] where
+ insertDB = ...
+
+
+-}