hasufell/hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

LIB: more general type for rethrowErrnoAs

Browse Source
This commit is contained in:
Julian Ospald 2016-04-08 02:09:59 +02:00
parent 17407860f4
commit 844abcdc86
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/HSFM/FileSystem/Errors.hs
View File

@ -200,8 +200,9 @@ catchErrno en a1 a2 =
-- |Execute the given action and retrow IO exceptions that have the given errno. -- |Execute the given action and retrow IO exceptions that have the given errno.
rethrowErrnoAs :: Errno -- ^ errno to catch rethrowErrnoAs :: Exception e
-> FmIOException -- ^ rethrow as => Errno -- ^ errno to catch
-> e -- ^ rethrow as
-> IO a -- ^ action to try -> IO a -- ^ action to try
-> IO a -> IO a
rethrowErrnoAs en fmex action = catchErrno en action (throw fmex) rethrowErrnoAs en fmex action = catchErrno en action (throw fmex)