[FIX] typo
[gargantext.git] / src / Gargantext / Database.hs
index a05562e7affa855a30258801d0f81b14e9aaddaf..df22a0908f42feaf03078d2ce228fe1bfb12a571 100644 (file)
@@ -16,12 +16,40 @@ Gargantext's database.
 
 
 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 = ...
+
+
+-}