summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tissue/issue.scm11
1 files changed, 3 insertions, 8 deletions
diff --git a/tissue/issue.scm b/tissue/issue.scm
index a86484d..b9b6c32 100644
--- a/tissue/issue.scm
+++ b/tissue/issue.scm
@@ -140,14 +140,9 @@ return #f."
"Return a list of all authors who have committed to this git
repository."
(delete-duplicates
- (map (cut resolve-alias <> (%aliases))
- (call-with-input-pipe
- (lambda (port)
- (port-transduce (tmap (lambda (line)
- (match (string-split line #\tab)
- ((_ author) author))))
- rcons get-line port))
- "git" "shortlog" "--summary"))))))
+ (append-map (lambda (issue)
+ (map post-author (issue-posts issue)))
+ (issues))))))
(define (resolve-alias name aliases)
"Resolve NAME against ALIASES, a list of aliases. ALIASES should be