From 146c36ca545a297f1e44e3cf2c91f3c0e17c909f Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 3 Feb 2012 16:47:24 -0400 Subject: 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. --- Backend.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'Backend.hs') diff --git a/Backend.hs b/Backend.hs index 003d62bfc..e351bb3b2 100644 --- a/Backend.hs +++ b/Backend.hs @@ -16,7 +16,6 @@ module Backend ( maybeLookupBackendName ) where -import System.IO.Error (try) import System.Posix.Files import Common.Annex @@ -77,7 +76,7 @@ genKey' (b:bs) file = do - by examining what the file symlinks to. -} lookupFile :: FilePath -> Annex (Maybe (Key, Backend)) lookupFile file = do - tl <- liftIO $ try getsymlink + tl <- liftIO $ tryIO getsymlink case tl of Left _ -> return Nothing Right l -> makekey l -- cgit v1.2.3