mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

don't crash on upgrade if .git-annex DNE

Browse source
This commit is contained in:
Joey Hess 2011-03-19 14:46:44 -04:00
parent 1de3cbbef1
commit 43b3675d42
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Upgrade/V1.hs
View file

@ -115,8 +115,12 @@ moveLocationLogs = do
oldlocationlogs = do oldlocationlogs = do
g <- Annex.gitRepo g <- Annex.gitRepo
let dir = gitStateDir g let dir = gitStateDir g
contents <- liftIO $ getDirectoryContents dir exists <- liftIO $ doesDirectoryExist dir
return $ catMaybes $ map oldlog2key contents if exists
then do
contents <- liftIO $ getDirectoryContents dir
return $ catMaybes $ map oldlog2key contents
else return []
move (l, k) = do move (l, k) = do
g <- Annex.gitRepo g <- Annex.gitRepo
let dest = logFile g k let dest = logFile g k