AV
transaction' ReadOnly
сказатьSize: a a a
AV
transaction' ReadOnly
сказатьAV
MK
YS
AV
IO
AV
MK
AV
MK
AV
AV
YS
YS
AV
statement' :: TransactionHandle -> HT.Statement inp out -> inp -> IO out
statement' TransactionHandle{..} s@(HT.Statement sql _ _ _) input = do
liftIO $ logDebug thLoggerEnv $ ls sql
HS.run (HS.statement input s) thConnection >>= either (throwIO . ErrorQuery) pure
LO
YS
LO
YS
AV