1
0
Fork 0

fix starting from scratch

* tekuti/git.scm (ensure-git-repo): Actually create a master ref. Fixes
  startup when ~/blog.git doesn't exist.
This commit is contained in:
Andy Wingo 2008-04-22 11:29:18 +02:00
parent 29bc9314dd
commit 3a7ddef467

View file

@ -120,7 +120,10 @@
(begin (begin
(mkdir d) (mkdir d)
(chdir 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)))) (chdir d))))
(define (git-ls-tree treeish path) (define (git-ls-tree treeish path)