avoid failure creating inode sentinal file

Test suite on windows failed running git annex init in a bare clone of an
annexed repo. The annex directory didn't exist when it tried to write the
inode sentinal file.
This commit is contained in:
Joey Hess 2013-06-18 15:38:17 -04:00
parent 55f971de3c
commit 72ab02ca48

View file

@ -233,6 +233,7 @@ readInodeSentinalFile = do
writeInodeSentinalFile :: Annex ()
writeInodeSentinalFile = do
sentinalfile <- fromRepo gitAnnexInodeSentinal
createAnnexDirectory (parentDir sentinalfile)
sentinalcachefile <- fromRepo gitAnnexInodeSentinalCache
liftIO $ writeFile sentinalfile ""
liftIO $ maybe noop (writeFile sentinalcachefile . showInodeCache)