fix: FromRow t bound on cursor

This commit is contained in:
orion kindel 2024-04-05 21:53:37 -05:00
parent ca95e0aa94
commit 500e67d793
Signed by: orion
GPG Key ID: 6D4165AE4C928719

View File

@ -103,7 +103,7 @@ fetchOne = Array.head <$> fetch 1
-- | Create a server-side cursor for a query in a transaction,
-- | and execute a `CursorT` with a view to the new cursor.
cursor :: forall m @t a q. AsQuery q => MonadAff m => MonadBracket Error Fiber m => MonadSession (SessionT m) => String -> q -> CursorT t (SessionT m) a -> PostgresT m a
cursor :: forall m @t a q. FromRow t => AsQuery q => MonadAff m => MonadBracket Error Fiber m => MonadSession (SessionT m) => String -> q -> CursorT t (SessionT m) a -> PostgresT m a
cursor cur q m =
transaction do
q' <- liftEffect $ asQuery q