Support upgrading from a v0 annex with nothing in it.

1 files changed, 7 insertions, 3 deletions

diff --git a/Upgrade.hs b/Upgrade.hs
index 52ecfa07d..204e2d555 100644
--- a/Upgrade.hs
+++ b/Upgrade.hs
@@ -67,9 +67,13 @@ upgradeFrom0 = do
 
 getKeysPresent0' :: FilePath -> Annex [Key]
 getKeysPresent0' dir = do
-	contents <- liftIO $ getDirectoryContents dir
-	files <- liftIO $ filterM present contents
-	return $ map fileKey files
+	exists <- liftIO $ doesDirectoryExist dir
+	if (not exists)
+		then return []
+		else do
+			contents <- liftIO $ getDirectoryContents dir
+			files <- liftIO $ filterM present contents
+			return $ map fileKey files
 	where
 		present d = do
 			result <- try $