view: Add missing docstring.

diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm
index 5b1a56d76716230d326a547d7fb625615ccdf453..4d8a1e1db4d04a2b31b863d6bffac963c825ac34 100644 (file)
--- 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))))