diff options
| -rwxr-xr-x | bin/tissue | 2 | ||||
| -rw-r--r-- | tissue/issue.scm | 4 | ||||
| -rw-r--r-- | tissue/web.scm | 2 |
3 files changed, 4 insertions, 4 deletions
@@ -257,7 +257,7 @@ List issues. (list-transduce (compose (tenumerate 1) (tfilter (match-lambda ((_ . issue) - (and (issue-open issue) + (and (issue-open? issue) (or (not (assq 'assigned args)) (member (assq-ref args 'assigned) (issue-assigned issue))))))) diff --git a/tissue/issue.scm b/tissue/issue.scm index 6a71874..9505e21 100644 --- a/tissue/issue.scm +++ b/tissue/issue.scm @@ -39,7 +39,7 @@ issue-last-updated-relative-date issue-assigned issue-keywords - issue-open + issue-open? issue-tasks issue-completed-tasks issue-posts @@ -60,7 +60,7 @@ (last-updated-relative-date issue-last-updated-relative-date) (assigned issue-assigned) (keywords issue-keywords) - (open issue-open) + (open issue-open?) (tasks issue-tasks) (completed-tasks issue-completed-tasks) (posts issue-posts)) diff --git a/tissue/web.scm b/tissue/web.scm index c2acbcd..fa804a4 100644 --- a/tissue/web.scm +++ b/tissue/web.scm @@ -180,7 +180,7 @@ default, all issues are listed newest first." #:last-updated-relative-date (issue-last-updated-relative-date issue) #:assigned (issue-assigned issue) #:keywords (issue-keywords issue) - #:open (issue-open issue) + #:open (issue-open? issue) #:tasks (issue-tasks issue) #:completed-tasks (issue-completed-tasks issue) #:posts (issue-posts issue))) |