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 <[email protected]> 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 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
