aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Branch.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/Branch.hs b/Branch.hs
index cb2feea6a..10a790631 100644
--- a/Branch.hs
+++ b/Branch.hs
@@ -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