diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-02-03 16:47:24 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-02-03 16:47:24 -0400 |
| commit | 146c36ca545a297f1e44e3cf2c91f3c0e17c909f (patch) | |
| tree | 56d6fb274427bb793155182aed7e92e2e00895ba /Command/Fsck.hs | |
| parent | 05f89123e08075cfbd136f37c60423c1ad38d1fe (diff) | |
IO exception rework
ghc 7.4 comaplains about use of System.IO.Error to catch exceptions.
Ok, use Control.Exception, with variants specialized to only catch IO
exceptions.
Diffstat (limited to 'Command/Fsck.hs')
| -rw-r--r-- | Command/Fsck.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs index 59af29edb..469fad749 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -81,7 +81,7 @@ performRemote key file backend numcopies remote = do t <- fromRepo gitAnnexTmpDir let tmp = t </> "fsck" ++ show pid ++ "." ++ keyFile key liftIO $ createDirectoryIfMissing True t - let cleanup = liftIO $ catch (removeFile tmp) (const $ return ()) + let cleanup = liftIO $ catchIO (removeFile tmp) (const $ return ()) cleanup cleanup `after` a tmp getfile tmp = do |