From efc9cea3a9211b140a1330ca3cb746a908a15fb8 Mon Sep 17 00:00:00 2001
From: Vincent Hanquez <vincent@snarc.org>
Date: Mon, 11 Dec 2017 15:41:05 +0000
Subject: [PATCH] missing directory creation
---
Data/Git/Storage.hs | 1 +
1 file changed, 1 insertion(+)
diff --git a/Data/Git/Storage.hs b/Data/Git/Storage.hs
index 7ef2c9e..7b065b7 100644
--- a/Data/Git/Storage.hs
+++ b/Data/Git/Storage.hs
@@ -167,6 +167,7 @@ initRepo path = do
exists <- isDirectory path
when exists $ error "destination directory already exists"
createParentDirectory path
+ createDirectory False path
mapM_ (createDirectory False . (path </>))
[ "branches", "hooks", "info"
, "logs", "objects", "refs"
--
GitLab