From 61270fdeea0c2ddbe1ffb6db9c57ac945fadec5a Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Fri, 10 Jul 2009 20:08:06 +0000
Subject: Fix some "warn-unused-do-bind" warnings where we want to ignore the
 value

---
 System/Posix/Terminal.hsc | 3 ++-
 System/Posix/User.hsc     | 4 ++--
 2 files changed, 4 insertions(+), 3 deletions(-)

(limited to 'System')

diff --git a/System/Posix/Terminal.hsc b/System/Posix/Terminal.hsc
index 6756bd0..54f1589 100644
--- a/System/Posix/Terminal.hsc
+++ b/System/Posix/Terminal.hsc
@@ -801,5 +801,6 @@ withNewTermios termios action = do
   withForeignPtr fp1 $ \p1 -> do
    withTerminalAttributes termios $ \p2 -> do
     copyBytes p1 p2 (#const sizeof(struct termios))
-    action p1
+    _ <- action p1
+    return ()
   return $ makeTerminalAttributes fp1
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
 
-- 
cgit v1.2.3