[FIX] removing printDebug
[gargantext.git] / src / Gargantext / Database / Schema / NodesNgramsRepo.hs
index 8699feeaadc377bb4481ad7ce54da052e67ea1c2..111c83350016dbf75032cb64f567fca66986c5fb 100644 (file)
@@ -13,15 +13,8 @@ Portability : POSIX
 {-# OPTIONS_GHC -fno-warn-orphans   #-}
 
 {-# LANGUAGE Arrows                     #-}
-{-# LANGUAGE FlexibleContexts           #-}
-{-# LANGUAGE FlexibleInstances          #-}
 {-# LANGUAGE FunctionalDependencies     #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE MultiParamTypeClasses      #-}
-{-# LANGUAGE NoImplicitPrelude          #-}
-{-# LANGUAGE OverloadedStrings          #-}
 {-# LANGUAGE QuasiQuotes                #-}
-{-# LANGUAGE RankNTypes                 #-}
 {-# LANGUAGE TemplateHaskell            #-}
 
 
@@ -29,13 +22,12 @@ module Gargantext.Database.Schema.NodesNgramsRepo
   where
 
 import Data.Map.Strict.Patch (PatchMap)
+
 import Gargantext.Database.Schema.Prelude
-import Gargantext.API.Ngrams (NgramsStatePatch, NgramsTablePatch)
+import Gargantext.API.Ngrams.Types (NgramsStatePatch, NgramsTablePatch)
 import Gargantext.Database.Schema.Ngrams (NgramsType)
 import Gargantext.Database.Admin.Types.Node (NodeId)
-import Gargantext.Database.Admin.Utils (mkCmd, Cmd, runOpaQuery)
 import Gargantext.Prelude
-import Opaleye
 
 
 data RepoDbPoly version patches
@@ -60,7 +52,6 @@ instance QueryRunnerColumnDefault PGJsonb
   where
     queryRunnerColumnDefault = fieldQueryRunnerColumn
 
--- type Re
 repoTable :: Table RepoDbWrite RepoDbRead
 repoTable = Table "nodes_ngrams_repo"
     (pRepoDbNgrams RepoDbNgrams
@@ -69,20 +60,3 @@ repoTable = Table "nodes_ngrams_repo"
                    }
     )
 
-
-selectRepo :: Cmd err [RepoDbNgrams]
-selectRepo =  runOpaQuery selectPatches
-
-selectPatches :: Query RepoDbRead
-selectPatches = proc () -> do
-  repos <- queryTable repoTable -< ()
-  returnA -< repos
-
-
-insertRepos :: [NgramsStatePatch] -> Cmd err Int64
-insertRepos ns = mkCmd $ \conn -> runInsert_ conn $ Insert repoTable (toWrite ns) rCount Nothing
-  where
-    toWrite :: [NgramsStatePatch] -> [RepoDbWrite]
-    toWrite = undefined
-    --ns' = map (\(RepoDbNgrams v ps) -> RepoDbWrite (pgInt4 v) (pgJSONB ps)) ns
-