From 3a7ddef4671260822d81d7052cadb5b1479ad0b0 Mon Sep 17 00:00:00 2001
From: Andy Wingo
Date: Tue, 22 Apr 2008 11:29:18 +0200
Subject: fix starting from scratch

* tekuti/git.scm (ensure-git-repo): Actually create a master ref. Fixes
  startup when ~/blog.git doesn't exist.
---
 tekuti/git.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'tekuti/git.scm')

diff --git a/tekuti/git.scm b/tekuti/git.scm
index 35b3b27..e8793a4 100644
--- a/tekuti/git.scm
+++ b/tekuti/git.scm
@@ -120,7 +120,10 @@
         (begin
           (mkdir d)
           (chdir d)
-          (git "init"))
+          (git "init")
+          (git "update-ref" "refs/heads/master"
+               (git-commit-tree (string-trim-both (git* '("mktree") #:input ""))
+                                #f "initial commit" #f)))
         (chdir d))))
 
 (define (git-ls-tree treeish path)
-- 
cgit v1.2.3-54-g00ecf