summaryrefslogtreecommitdiff
path: root/Branch.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Branch.hs')
-rw-r--r--Branch.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/Branch.hs b/Branch.hs
index 3f5e0ee1e..916261a9c 100644
--- a/Branch.hs
+++ b/Branch.hs
@@ -83,9 +83,10 @@ withIndex' bootstrapping a = do
reset <- liftIO $ Git.useIndex f
e <- liftIO $ doesFileExist f
- unless e $ liftIO $ do
- createDirectoryIfMissing True $ takeDirectory f
- unless bootstrapping $ genIndex g
+ unless e $ do
+ unless bootstrapping $ create
+ liftIO $ createDirectoryIfMissing True $ takeDirectory f
+ liftIO $ unless bootstrapping $ genIndex g
r <- a
liftIO reset