[commit: unix] master: Follow the removal of the Eq superclass of Num (cd4fb51)

[Ian Lynagh]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/cd4fb516eff8e407cce2253dada61100eea500c1

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

commit cd4fb516eff8e407cce2253dada61100eea500c1
Author: Ian Lynagh <igloo at earth.li>
Date:   Thu Sep 15 22:03:51 2011 +0100

    Follow the removal of the Eq superclass of Num

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

 System/Posix/Error.hs |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/System/Posix/Error.hs b/System/Posix/Error.hs
index 81bc62b..73988dc 100644
--- a/System/Posix/Error.hs
+++ b/System/Posix/Error.hs
@@ -31,11 +31,13 @@ module System.Posix.Error (
 import Foreign
 import Foreign.C
 
-throwErrnoPathIfMinus1Retry :: Num a => String -> FilePath -> IO a -> IO a
+throwErrnoPathIfMinus1Retry :: (Eq a, Num a)
+                            => String -> FilePath -> IO a -> IO a
 throwErrnoPathIfMinus1Retry loc path f =
   throwErrnoPathIfRetry (== -1) loc path f
 
-throwErrnoPathIfMinus1Retry_ :: Num a => String -> FilePath -> IO a -> IO ()
+throwErrnoPathIfMinus1Retry_ :: (Eq a, Num a)
+                             => String -> FilePath -> IO a -> IO ()
 throwErrnoPathIfMinus1Retry_ loc path f =
   void $ throwErrnoPathIfRetry (== -1) loc path f