From 72ab02ca48cc26bc4738e3f91e366c3bea7ccad8 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 18 Jun 2013 15:38:17 -0400 Subject: [PATCH] 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. --- Annex/Content/Direct.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/Annex/Content/Direct.hs b/Annex/Content/Direct.hs index e061f8e57e..6da7fab52c 100644 --- a/Annex/Content/Direct.hs +++ b/Annex/Content/Direct.hs @@ -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)