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

Clean up

Browse Source
This commit is contained in:
Nikita Volkov 2024-04-22 08:16:19 +03:00
parent 30665a331e
commit cc2c4db3c5
1 changed files with 0 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
library/Hasql/Decoders/Results.hs
View File

@ -49,26 +49,6 @@ single resultDec =
Nothing -> Nothing ->
fmap (Left . ClientCommandError) (LibPQ.errorMessage connection) fmap (Left . ClientCommandError) (LibPQ.errorMessage connection)
-- |
-- Fetch a single result.
{-# INLINE getResult #-}
getResult :: Results LibPQ.Result
getResult =
Results
$ ReaderT
$ \(_, connection) -> ExceptT $ do
resultMaybe <- LibPQ.getResult connection
case resultMaybe of
Just result -> pure (Right result)
Nothing -> fmap (Left . ClientCommandError) (LibPQ.errorMessage connection)
-- |
-- Fetch a single result.
{-# INLINE getResultMaybe #-}
getResultMaybe :: Results (Maybe LibPQ.Result)
getResultMaybe =
Results $ ReaderT $ \(_, connection) -> lift $ LibPQ.getResult connection
{-# INLINE dropRemainders #-} {-# INLINE dropRemainders #-}
dropRemainders :: Results () dropRemainders :: Results ()
dropRemainders = dropRemainders =