Merge remote-tracking branch 'origin/dev-sql-run-insert-deprecation-fix' into dev-merge

src/Gargantext/Database/Schema/Node.hs

@@ -536,7 +536,7 @@ node nodeType name hyperData parentId userId = Node Nothing (pgInt4 typeId) (pgI
 
                   -------------------------------
 insertNodes :: [NodeWrite] -> Cmd err Int64
-insertNodes ns = mkCmd $ \conn -> runInsertMany conn nodeTable ns
+insertNodes ns = mkCmd $ \conn -> runInsert_ conn $ Insert nodeTable ns rCount Nothing
 
 insertNodesR :: [NodeWrite] -> Cmd err [NodeId]
 insertNodesR ns = mkCmd $ \conn ->
@@ -576,10 +576,10 @@ data Node' = Node' { _n_type :: NodeType
                    } deriving (Show)
 
 mkNodes :: [NodeWrite] -> Cmd err Int64
-mkNodes ns = mkCmd $ \conn -> runInsertMany conn nodeTable ns
+mkNodes ns = mkCmd $ \conn -> runInsert_ conn $ Insert nodeTable ns rCount Nothing
 
 mkNodeR :: [NodeWrite] -> Cmd err [NodeId]
-mkNodeR ns = mkCmd $ \conn -> runInsertManyReturning conn nodeTable ns (_node_id)
+mkNodeR ns = mkCmd $ \conn -> runInsert_ conn $ Insert nodeTable ns (rReturning _node_id) Nothing
 
 ------------------------------------------------------------------------
 

src/Gargantext/Database/Schema/NodesNgramsRepo.hs

@@ -80,7 +80,7 @@ selectPatches = proc () -> do
 
 
 insertRepos :: [NgramsStatePatch] -> Cmd err Int64
-insertRepos ns = mkCmd $ \conn -> runInsertMany conn repoTable (toWrite ns)
+insertRepos ns = mkCmd $ \conn -> runInsert_ conn $ Insert repoTable (toWrite ns) rCount Nothing
   where
     toWrite :: [NgramsStatePatch] -> [RepoDbWrite]
     toWrite = undefined

src/Gargantext/Database/Schema/User.hs

@@ -115,7 +115,9 @@ userTable = Table "auth_user" (pUser User { user_id      = optional "id"
 
 -- TODO: on conflict, nice message
 insertUsers :: [UserWrite] -> Cmd err Int64
-insertUsers us = mkCmd $ \c -> runInsertMany c userTable us
+insertUsers us = mkCmd $ \c -> runInsert_ c insert
+  where
+    insert = Insert userTable us rCount Nothing
 
 
 gargantextUser :: Username -> UserWrite