diff options
| author | Arun Isaac | 2022-04-05 14:07:02 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-04-05 14:07:02 +0530 |
| commit | 5206de9b15d46d703161565cdb6909bcf5c10f97 (patch) | |
| tree | 420ae8fd3bf32b763bed8fb5e42b795fa9530a0b | |
| parent | b1543397a66cced4e3ea92ead469a91f4b55b15f (diff) | |
| download | tissue-5206de9b15d46d703161565cdb6909bcf5c10f97.tar.gz tissue-5206de9b15d46d703161565cdb6909bcf5c10f97.tar.lz tissue-5206de9b15d46d703161565cdb6909bcf5c10f97.zip | |
issue: Sort authors in lexicographic order.
* tissue/issue.scm (authors): Sort returned list of authors in
lexicographic order.
| -rw-r--r-- | tissue/issue.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/tissue/issue.scm b/tissue/issue.scm index b9b6c32..100ce64 100644 --- a/tissue/issue.scm +++ b/tissue/issue.scm @@ -138,11 +138,12 @@ return #f." (memoize-thunk (lambda () "Return a list of all authors who have committed to this git -repository." - (delete-duplicates - (append-map (lambda (issue) - (map post-author (issue-posts issue))) - (issues)))))) +repository. The returned list is sorted in lexicographic order." + (sort (delete-duplicates + (append-map (lambda (issue) + (map post-author (issue-posts issue))) + (issues))) + string<?)))) (define (resolve-alias name aliases) "Resolve NAME against ALIASES, a list of aliases. ALIASES should be |