aliens/tekuti
1
0
Fork 0
Code Activity

post: make post-comments' and post-n-comments' work with current git

Browse source 
Apparently, at least git 1.7.2.3 ls-files does not understand the
SHA1:filename syntax anymore.
This commit is contained in:
Andreas Rottmann 2010-11-05 22:27:15 +01:00
parent 146a68731f
commit 8a8e0fadae
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tekuti/post.scm
View file

@ -125,12 +125,12 @@
(dsu-sort (dsu-sort
(map (lambda (pair) (map (lambda (pair)
(blob->comment (car pair) (cadr pair))) (blob->comment (car pair) (cadr pair)))
(git-ls-tree (string-append (assq-ref post 'sha1) ":comments") #f)) (git-ls-tree (assq-ref post 'sha1) "comments"))
comment-timestamp comment-timestamp
<)) <))
(define (post-n-comments post) (define (post-n-comments post)
(length (git-ls-tree (string-append (assq-ref post 'sha1) ":comments") #f))) (length (git-ls-tree (assq-ref post 'sha1) "comments")))
(define (munge-post old-key parsed) (define (munge-post old-key parsed)
(let ((metadata (with-output-to-blob (let ((metadata (with-output-to-blob