AV
transaction' ReadOnly сказатьSize: a a a
AV
transaction' ReadOnly сказатьAV
MK
YS
AV
IOAV
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) pureLO
YS
LO
YS
AV