fix bootstrapping, broken by move of .git/annex/index

This commit is contained in:
Joey Hess 2011-06-23 15:38:52 -04:00
parent c5531046bc
commit 780ee5ff6d

View file

@ -80,9 +80,10 @@ withIndex' bootstrapping a = do
let f = index g
reset <- liftIO $ Git.useIndex f
unless bootstrapping $ do
e <- liftIO $ doesFileExist f
unless e $ liftIO $ genIndex g
e <- liftIO $ doesFileExist f
unless e $ liftIO $ do
createDirectoryIfMissing True $ takeDirectory f
unless bootstrapping $ genIndex g
r <- a
liftIO reset