diff options
Diffstat (limited to 'Backend.hs')
| -rw-r--r-- | Backend.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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 |