module Hasql.CursorTransactionIO.TransactionIO (
  cursorTransactionIO,
) where

import Hasql.Private.TransactionIO (TransactionIO)
import Hasql.Private.CursorTransactionIO

-- | Run a `CursorTransactionIO` to produce a `TransactionIO` that manages the lifespan of all allocated `Cursor`s
cursorTransactionIO :: (forall s. CursorTransactionIO s a) -> TransactionIO a
cursorTransactionIO :: forall a. (forall s. CursorTransactionIO s a) -> TransactionIO a
cursorTransactionIO = forall a. (forall s. CursorTransactionIO s a) -> TransactionIO a
run