diff options
| author |  Andreas Rottmann | 2010-11-06 22:55:14 +0100 |
|---|---|---|
| committer | Andreas Rottmann | 2010-11-06 22:55:14 +0100 |
| commit | 97a49f08014529ca2224572a022c87a155de63b5 (patch) | |
| tree | 8f272642596d278f4ae3a2c91f2f5d13c79711fd | |
| parent | 8a8e0fadae12cbacaf8474b09c16ee8c01ebfe26 (diff) | |
| download | tekuti-97a49f08014529ca2224572a022c87a155de63b5.tar.gz tekuti-97a49f08014529ca2224572a022c87a155de63b5.zip | |
Revert last, misguided commit
This reverts commit 8a8e0fadae12cbacaf8474b09c16ee8c01ebfe26.
| -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 e176232..2b96c3f 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 (assq-ref post 'sha1) "comments")) + (git-ls-tree (string-append (assq-ref post 'sha1) ":comments") #f)) comment-timestamp <)) (define (post-n-comments post) - (length (git-ls-tree (assq-ref post 'sha1) "comments"))) + (length (git-ls-tree (string-append (assq-ref post 'sha1) ":comments") #f))) (define (munge-post old-key parsed) (let ((metadata (with-output-to-blob |