Support for -fwarn-unused-do-bind and -fwarn-wrong-do-bind, as per #3263
authorMax Bolingbroke <batterseapower@hotmail.com>
Wed, 1 Jul 2009 20:04:32 +0000 (20:04 +0000)
committerMax Bolingbroke <batterseapower@hotmail.com>
Wed, 1 Jul 2009 20:04:32 +0000 (20:04 +0000)
IO.hs

diff --git a/IO.hs b/IO.hs
index a377e74..1f4bd85 100644 (file)
--- a/IO.hs
+++ b/IO.hs
@@ -37,7 +37,7 @@ bracket        :: IO a -> (a -> IO b) -> (a -> IO c) -> IO c
 bracket before after m = do
         x  <- before
         rs <- try (m x)
-        after x
+        _ <- after x
         case rs of
            Right r -> return r
            Left  e -> ioError e
@@ -52,7 +52,7 @@ bracket_        :: IO a -> (a -> IO b) -> IO c -> IO c
 bracket_ before after m = do
          x  <- before
          rs <- try m
-         after x
+         _ <- after x
          case rs of
             Right r -> return r
             Left  e -> ioError e