Fix build on Windows
authorIan Lynagh <igloo@earth.li>
Fri, 14 Oct 2011 18:11:22 +0000 (19:11 +0100)
committerIan Lynagh <igloo@earth.li>
Fri, 14 Oct 2011 18:11:22 +0000 (19:11 +0100)
GHC/Conc/Windows.hs

index fecbb20..49a9184 100644 (file)
@@ -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