[commit: base] master: Fix build on Windows (84cc6ed)

[Ian Lynagh]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/84cc6ed3b341926d8fc7f3532a480fc3ec57f8ea

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

commit 84cc6ed3b341926d8fc7f3532a480fc3ec57f8ea
Author: Ian Lynagh <igloo at earth.li>
Date:   Fri Oct 14 19:11:22 2011 +0100

    Fix build on Windows

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

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

diff --git a/GHC/Conc/Windows.hs b/GHC/Conc/Windows.hs
index fecbb20..49a9184 100644
--- a/GHC/Conc/Windows.hs
+++ b/GHC/Conc/Windows.hs
@@ -277,7 +277,7 @@ start_console_handler r =
                     return ()
      Nothing -> return ()
 
-toWin32ConsoleEvent :: Num a => a -> Maybe ConsoleEvent
+toWin32ConsoleEvent :: (Eq a, Num a) => a -> Maybe ConsoleEvent
 toWin32ConsoleEvent ev =
    case ev of
        0 {- CTRL_C_EVENT-}        -> Just ControlC