LIB: minor cleanup

2016-04-10 22:04:07 +02:00
parent b7ee2ccd3d
commit 3f303b4cd4
3 changed files with 31 additions and 36 deletions
--- a/src/HSFM/FileSystem/Errors.hs
+++ b/src/HSFM/FileSystem/Errors.hs
@@ -215,5 +215,5 @@ rethrowErrnoAs en fmex action = catchErrno en action (throw fmex)

 -- |Like `catchIOError`, with arguments swapped.
 handleIOError :: (IOError -> IO a) -> IO a -> IO a
-handleIOError a1 a2 = catchIOError a2 a1
+handleIOError = flip catchIOError