robustness fix

don't crash if an object directory does not contain a file

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]