diff options
| -rw-r--r-- | tissue/issue.scm | 11 |
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 |