git.iko.soy/squeal
on dev help sign in
better inference
b190a8eEitan Chatav
squeal-postgresql/src/Squeal/PostgreSQL/PQ.hs+2−1
compare with dev
unifiedsplit
@@ -375,7 +375,8 @@ class Monad pq => MonadPQ schema pq | pq -> schema where
375 => (LibPQ.Connection -> IO a) -> pq a
375 => (LibPQ.Connection -> IO a) -> pq a
376 liftPQ = lift . liftPQ
376 liftPQ = lift . liftPQ
377
377
378+instance (MonadBase IO io, schema1 ~ schema)
378−instance MonadBase IO io => MonadPQ schema (PQ schema schema io) where
379+ => MonadPQ schema (PQ schema schema1 io) where
379
380
380 manipulateParams
381 manipulateParams
381 (UnsafeManipulation q :: Manipulation schema ps ys) (params :: x) =
382 (UnsafeManipulation q :: Manipulation schema ps ys) (params :: x) =