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 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'System/Posix/Terminal.hsc')

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
-- 
cgit v1.2.3