[commit: base] master: Fix warnings (afb8197)

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 ())