Repository : ssh://darcs.haskell.org//srv/darcs/packages/base On branch : master
http://hackage.haskell.org/trac/ghc/changeset/afb81977555a74a95de161b33e154f5cb61fab40 >--------------------------------------------------------------- commit afb81977555a74a95de161b33e154f5cb61fab40 Author: Ian Lynagh <[email protected]> Date: Sun Dec 2 14:15:58 2012 +0000 Fix warnings >--------------------------------------------------------------- GHC/Event/Thread.hs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/GHC/Event/Thread.hs b/GHC/Event/Thread.hs index 1f19756..35557a4 100644 --- a/GHC/Event/Thread.hs +++ b/GHC/Event/Thread.hs @@ -107,8 +107,8 @@ threadWaitSTM evt fd = mask_ $ do do mevt <- readTVar m case mevt of Nothing -> retry - Just evt -> - if evt `eventIs` evtClose + Just evt' -> + if evt' `eventIs` evtClose then throwSTM $ errnoToIOError "threadWaitSTM" eBADF Nothing Nothing else return () return (waitAction, unregisterFd_ mgr reg >> return ()) _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
