Description: Add Eq constraings for GHC 7.4.1
Author: Joachim Breitner <nomeata@debian.org>


Index: haskell-hscurses-1.4.1.0/UI/HSCurses/Curses.hsc
===================================================================
--- haskell-hscurses-1.4.1.0.orig/UI/HSCurses/Curses.hsc	2012-02-07 23:29:29.000000000 +0100
+++ haskell-hscurses-1.4.1.0/UI/HSCurses/Curses.hsc	2012-02-07 23:30:24.000000000 +0100
@@ -241,7 +241,7 @@
 fi :: (Integral a, Num b) => a -> b
 fi = fromIntegral
 
-throwIfErr :: Num a => String -> IO a -> IO a
+throwIfErr :: (Show a, Eq a, Num a) => String -> IO a -> IO a
 --throwIfErr name act = do
 --    res <- act
 --    if res == (cERR)
@@ -249,7 +249,7 @@
 --        else return res
 throwIfErr s = throwIf (== (#const ERR)) (\a -> "Curses[" ++ show a ++ "]:"  ++ s)
 
-throwIfErr_ :: Num a => String -> IO a -> IO ()
+throwIfErr_ :: (Show a, Eq a, Num a) => String -> IO a -> IO ()
 throwIfErr_ name act = void $ throwIfErr name act
 
 errI :: IO CInt -> IO ()
