diff options
| author |  Ian Lynagh <igloo@earth.li> | 2009-07-10 20:08:06 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-07-10 20:08:06 +0000 |
| commit | 61270fdeea0c2ddbe1ffb6db9c57ac945fadec5a (patch) | |
| tree | ad320368f59c98f11606775f23602af29d45f57c /System/Posix/User.hsc | |
| parent | 5f81299360799b53d583595470c6cad0c44942cd (diff) | |
Fix some "warn-unused-do-bind" warnings where we want to ignore the value
Diffstat (limited to 'System/Posix/User.hsc')
| -rw-r--r-- | System/Posix/User.hsc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/System/Posix/User.hsc b/System/Posix/User.hsc index f0478ba..47a7a72 100644 --- a/System/Posix/User.hsc +++ b/System/Posix/User.hsc @@ -171,7 +171,7 @@ getGroupEntryForID gid = do throwErrorIfNonZero_ "getGroupEntryForID" $ doubleAllocWhile isERANGE grBufSize $ \s b -> c_getgrgid_r gid pgr b (fromIntegral s) ppgr - throwErrnoIfNull "getGroupEntryForID" $ + _ <- throwErrnoIfNull "getGroupEntryForID" $ peekElemOff ppgr 0 unpackGroupEntry pgr @@ -288,7 +288,7 @@ getUserEntryForID uid = do throwErrorIfNonZero_ "getUserEntryForID" $ doubleAllocWhile isERANGE pwBufSize $ \s b -> c_getpwuid_r uid ppw b (fromIntegral s) pppw - throwErrnoIfNull "getUserEntryForID" $ + _ <- throwErrnoIfNull "getUserEntryForID" $ peekElemOff pppw 0 unpackUserEntry ppw |