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 let f = index g
reset <- liftIO $ Git.useIndex f reset <- liftIO $ Git.useIndex f
unless bootstrapping $ do e <- liftIO $ doesFileExist f
e <- liftIO $ doesFileExist f unless e $ liftIO $ do
unless e $ liftIO $ genIndex g createDirectoryIfMissing True $ takeDirectory f
unless bootstrapping $ genIndex g
r <- a r <- a
liftIO reset liftIO reset