summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Core.hs8
1 files changed, 5 insertions, 3 deletions
diff --git a/Core.hs b/Core.hs
index 8cdb063c7..e3702044e 100644
--- a/Core.hs
+++ b/Core.hs
@@ -190,9 +190,11 @@ getKeysPresent' dir = do
return $ map fileKey files
where
present d = do
- s <- getFileStatus $ dir ++ "/" ++ d ++ "/"
- ++ takeFileName d
- return $ isRegularFile s
+ result <- try $
+ getFileStatus $ dir ++ "/" ++ d ++ "/" ++ takeFileName d
+ case result of
+ Right s -> return $ isRegularFile s
+ Left _ -> return False
{- List of keys referenced by symlinks in the git repo. -}
getKeysReferenced :: Annex [Key]