nikita-volkov/hasql
1
1
Fork 0
mirror of https://github.com/nikita-volkov/hasql.git synced 2024-12-26 20:12:09 +03:00
Code Issues Projects Releases Wiki Activity

Add handling of empty query response

Browse Source
This commit is contained in:
Nikita Volkov 2022-07-20 22:12:13 +03:00
parent 9276d7e298
commit 55a4564abc
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.NonfatalError -> serverError
LibPQ.FatalError -> serverError
LibPQ.EmptyQuery -> return ()
_ -> Result $ lift $ ExceptT $ pure $ Left $ UnexpectedResult $ "Unexpected result status: " <> (fromString $ show status)
{-# INLINE serverError #-}