absolute path to index file; test suite passes

There are still known problems; for example git annex view a=b fails when
run in a subdir of the repo.
This commit is contained in:
Joey Hess 2015-01-06 17:34:02 -04:00
parent d44b28437d
commit 8a1c5956eb

View file

@ -334,7 +334,7 @@ withIndex :: Annex a -> Annex a
withIndex = withIndex' False
withIndex' :: Bool -> Annex a -> Annex a
withIndex' bootstrapping a = do
f <- fromRepo gitAnnexIndex
f <- liftIO . absPath =<< fromRepo gitAnnexIndex
withIndexFile f $ do
checkIndexOnce $ unlessM (liftIO $ doesFileExist f) $ do
unless bootstrapping create