projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix "warn-unused-do-bind" warnings where we really do want to ignore the result
[ghc-base.git]
/
Foreign
/
C
/
Error.hs
diff --git
a/Foreign/C/Error.hs
b/Foreign/C/Error.hs
index
ea38694
..
d2e6f64
100644
(file)
--- a/
Foreign/C/Error.hs
+++ b/
Foreign/C/Error.hs
@@
-378,7
+378,8
@@
throwErrnoIfRetryMayBlock pred loc f on_block =
if err == eINTR
then throwErrnoIfRetryMayBlock pred loc f on_block
else if err == eWOULDBLOCK || err == eAGAIN
if err == eINTR
then throwErrnoIfRetryMayBlock pred loc f on_block
else if err == eWOULDBLOCK || err == eAGAIN
- then do on_block; throwErrnoIfRetryMayBlock pred loc f on_block
+ then do _ <- on_block
+ throwErrnoIfRetryMayBlock pred loc f on_block
else throwErrno loc
else return res
else throwErrno loc
else return res