selectPatches :: Query RepoDbRead
selectPatches = proc () -> do
- repos <- queryTable repoTable -< ()
+ repos <- selectTable repoTable -< ()
returnA -< repos
_selectRepo :: Cmd err [RepoDbNgrams]
where
toWrite :: [NgramsStatePatch] -> [RepoDbWrite]
toWrite = undefined
- --ns' = map (\(RepoDbNgrams v ps) -> RepoDbWrite (pgInt4 v) (pgJSONB ps)) ns
+ --ns' = map (\(RepoDbNgrams v ps) -> RepoDbWrite (sqlInt4 v) (pgJSONB ps)) ns