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 <i...@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 _______________________________________________ ghc-commits mailing list ghc-commits@haskell.org http://www.haskell.org/mailman/listinfo/ghc-commits
