nikita-volkov/hasql
1
1
Fork 0
mirror of https://github.com/nikita-volkov/hasql.git synced 2024-11-23 02:35:33 +03:00
Code Issues Projects Releases Wiki Activity

Add handling of EmptyQuery status

Browse Source
This commit is contained in:
Nikita Volkov 2022-07-20 22:37:31 +03:00
parent cf6458fe76
commit fab38ac101
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
library/Hasql/Private/Decoders/Result.hs
View File

@ -63,6 +63,7 @@ checkExecStatus predicate =
LibPQ.BadResponse -> serverError LibPQ.BadResponse -> serverError
LibPQ.NonfatalError -> serverError LibPQ.NonfatalError -> serverError
LibPQ.FatalError -> serverError LibPQ.FatalError -> serverError
LibPQ.EmptyQuery -> return ()
_ -> Result $ lift $ ExceptT $ pure $ Left $ UnexpectedResult $ "Unexpected result status: " <> (fromString $ show status) _ -> Result $ lift $ ExceptT $ pure $ Left $ UnexpectedResult $ "Unexpected result status: " <> (fromString $ show status)
{-# INLINE serverError #-} {-# INLINE serverError #-}