diff options
| author |  Ian Lynagh <igloo@earth.li> | 2011-09-15 22:03:51 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-10-12 16:29:08 +0100 |
| commit | cd4fb516eff8e407cce2253dada61100eea500c1 (patch) | |
| tree | 8b68141afeb2adcc3d179508360ba8878d1b5d44 /System/Posix/Error.hs | |
| parent | f55638fb5c6badd385c51a41de7ff96ef106de42 (diff) | |
Follow the removal of the Eq superclass of Num
Diffstat (limited to 'System/Posix/Error.hs')
| -rw-r--r-- | 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 |