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

Fix the strictness of the foldl decoder (#140)

Browse Source
This commit is contained in:
Nikita Volkov 2021-09-17 10:56:29 +03:00
parent 7a53a06960
commit f3cc8542ca
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -164,7 +164,7 @@ foldl step init rowDec =
rowResult <- Row.run rowDec (result, intToRow rowIndex, maxCols, integerDatetimes)
case rowResult of
Left !x -> writeIORef failureRef (Just (RowError rowIndex x))
Right !x -> modifyIORef accRef (\acc -> step acc x)
Right !x -> modifyIORef' accRef (\acc -> step acc x)
readIORef failureRef >>= \case
Nothing -> Right <$> readIORef accRef
Just x -> pure (Left x)