[commit: base] : Minor clarification in registerFd_. (275b7b8)

[Johan Tibell]

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

On branch  : 

http://hackage.haskell.org/trac/ghc/changeset/275b7b81d8defe6f226f0d9ee093d5e996d2d0fc

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

commit 275b7b81d8defe6f226f0d9ee093d5e996d2d0fc
Author: Andreas Voellmy <andreas.voellmy at gmail.com>
Date:   Fri Dec 21 15:47:54 2012 -0500

    Minor clarification in registerFd_.

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

 GHC/Event/Manager.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/GHC/Event/Manager.hs b/GHC/Event/Manager.hs
index 8dea518..067f62d 100644
--- a/GHC/Event/Manager.hs
+++ b/GHC/Event/Manager.hs
@@ -248,7 +248,7 @@ registerFd_ mgr@(EventManager{..}) cb fd evs = do
         (!newMap, (oldEvs, newEvs)) =
             case IM.insertWith (++) fd' [fdd] oldMap of
               (Nothing,   n) -> (n, (mempty, evs))
-              (Just prev, n) -> (n, pairEvents prev newMap fd')
+              (Just prev, n) -> (n, pairEvents prev n fd')
         modify = oldEvs /= newEvs
     when modify $ I.modifyFd emBackend fd oldEvs newEvs
     return (newMap, (reg, modify))