diff options
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 |