[commit: base] master: Fix warnings (45bd7b2)

Ian Lynagh igloo at earth.li
Sat Jan 12 21:49:57 CET 2013


Repository : ssh://darcs.haskell.org//srv/darcs/packages/base

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/45bd7b2f860d881437a589bcb65dda46e1f1fd50

>---------------------------------------------------------------

commit 45bd7b2f860d881437a589bcb65dda46e1f1fd50
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sat Jan 12 18:26:32 2013 +0000

    Fix warnings

>---------------------------------------------------------------

 GHC/Conc/IO.hs |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/GHC/Conc/IO.hs b/GHC/Conc/IO.hs
index a99b334..8faa9b5 100644
--- a/GHC/Conc/IO.hs
+++ b/GHC/Conc/IO.hs
@@ -121,7 +121,7 @@ threadWaitReadSTM fd
 #endif
   | otherwise = do
       m <- Sync.newTVarIO False
-      Sync.forkIO $ do
+      _ <- Sync.forkIO $ do
         threadWaitRead fd
         Sync.atomically $ Sync.writeTVar m True
       let waitAction = do b <- Sync.readTVar m
@@ -140,7 +140,7 @@ threadWaitWriteSTM fd
 #endif
   | otherwise = do
       m <- Sync.newTVarIO False
-      Sync.forkIO $ do
+      _ <- Sync.forkIO $ do
         threadWaitWrite fd
         Sync.atomically $ Sync.writeTVar m True
       let waitAction = do b <- Sync.readTVar m





More information about the ghc-commits mailing list