diff options
| author |  Andreas Rottmann | 2010-11-05 22:27:15 +0100 |
|---|---|---|
| committer | Andreas Rottmann | 2010-11-05 22:27:15 +0100 |
| commit | 8a8e0fadae12cbacaf8474b09c16ee8c01ebfe26 (patch) | |
| tree | eea3bdcaf986d9b7de2e4c9fc30f962e9498b60e | |
| parent | 146a68731fb31f77df6b49ab912f6314b2fb7ff5 (diff) | |
| download | tekuti-8a8e0fadae12cbacaf8474b09c16ee8c01ebfe26.tar.gz tekuti-8a8e0fadae12cbacaf8474b09c16ee8c01ebfe26.zip | |
post: make `post-comments' and `post-n-comments' work with current git
Apparently, at least git 1.7.2.3 ls-files does not understand the
SHA1:filename syntax anymore.
| -rw-r--r-- | tekuti/post.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tekuti/post.scm b/tekuti/post.scm index 2b96c3f..e176232 100644 --- a/tekuti/post.scm +++ b/tekuti/post.scm @@ -125,12 +125,12 @@ (dsu-sort (map (lambda (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 <)) (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) (let ((metadata (with-output-to-blob |