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
(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