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

Drop the unsafe freeing of result

Browse Source
This commit is contained in:
Nikita Volkov 2015-12-06 08:06:22 +03:00
parent d5f5c90ed4
commit 11ea136193
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -51,7 +51,6 @@ single resultDec =
case resultMaybe of case resultMaybe of
Just result -> Just result ->
mapLeft ResultError <$> Result.run resultDec (integerDatetimes, result) mapLeft ResultError <$> Result.run resultDec (integerDatetimes, result)
<* LibPQ.unsafeFreeResult result
Nothing -> Nothing ->
fmap (Left . ClientError) (LibPQ.errorMessage connection) fmap (Left . ClientError) (LibPQ.errorMessage connection)