aliens/tekuti
1
0
Fork 0
Code Activity

Revert last, misguided commit

Browse source 
This reverts commit 8a8e0fadae.
This commit is contained in:
Andreas Rottmann 2010-11-06 22:55:14 +01:00
parent 8a8e0fadae
commit 97a49f0801
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 (assq-ref post 'sha1) "comments")) (git-ls-tree (string-append (assq-ref post 'sha1) ":comments") #f))
comment-timestamp comment-timestamp
<)) <))
(define (post-n-comments post) (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) (define (munge-post old-key parsed)
(let ((metadata (with-output-to-blob (let ((metadata (with-output-to-blob