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/Terminal.hsc | |
| parent | 5f81299360799b53d583595470c6cad0c44942cd (diff) | |
Fix some "warn-unused-do-bind" warnings where we want to ignore the value
Diffstat (limited to 'System/Posix/Terminal.hsc')
| -rw-r--r-- | System/Posix/Terminal.hsc | 3 |
1 files changed, 2 insertions, 1 deletions
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 |