diff options
| -rw-r--r-- | mumi/web/view/html.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm index 5b1a56d..4d8a1e1 100644 --- a/mumi/web/view/html.scm +++ b/mumi/web/view/html.scm @@ -30,6 +30,7 @@ list-of-matching-bugs)) (define (status-tag bug) + "Return a colored tag indicating the BUG status." (let ((status (if (bug-done bug) "Done" "Open"))) `(span (@ (class ,(string-append "status-tag " (string-downcase status)))) |