[REFACT] SocialList (temp reorg)
[gargantext.git] / src / Gargantext / Database / Schema / NodesNgramsRepo.hs
index d7f422e2729af8c0ff05ba41d9fc05231a7cfa78..111c83350016dbf75032cb64f567fca66986c5fb 100644 (file)
@@ -13,36 +13,27 @@ 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            #-}
 
 
-module Gargantext.Database.Schema.NodesNgramsRepo where
+module Gargantext.Database.Schema.NodesNgramsRepo
+  where
 
-import Control.Arrow (returnA)
-import Control.Lens.TH (makeLenses)
 import Data.Map.Strict.Patch (PatchMap)
-import Data.Profunctor.Product.TH (makeAdaptorAndInstance)
-import Gargantext.API.Ngrams (NgramsStatePatch, NgramsTablePatch)
+
+import Gargantext.Database.Schema.Prelude
+import Gargantext.API.Ngrams.Types (NgramsStatePatch, NgramsTablePatch)
 import Gargantext.Database.Schema.Ngrams (NgramsType)
-import Gargantext.Database.Types.Node (NodeId)
-import Gargantext.Database.Utils (mkCmd, Cmd, runOpaQuery)
+import Gargantext.Database.Admin.Types.Node (NodeId)
 import Gargantext.Prelude
-import Opaleye
 
 
 data RepoDbPoly version patches
-   = RepoDbNgrams { _rdp_version :: version
-              , _rdp_patches :: patches
-              } deriving (Show)
+   = RepoDbNgrams { _rdp_version :: !version
+                  , _rdp_patches :: !patches
+                  } deriving (Show)
 
 type RepoDbWrite
   = RepoDbPoly (Column PGInt4)
@@ -61,7 +52,6 @@ instance QueryRunnerColumnDefault PGJsonb
   where
     queryRunnerColumnDefault = fieldQueryRunnerColumn
 
--- type Re
 repoTable :: Table RepoDbWrite RepoDbRead
 repoTable = Table "nodes_ngrams_repo"
     (pRepoDbNgrams RepoDbNgrams
@@ -70,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
-