view: Add missing docstring.
authorRicardo Wurmus <rekado@elephly.net>
Sat, 1 Sep 2018 06:54:03 +0000 (08:54 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Sat, 1 Sep 2018 06:54:03 +0000 (08:54 +0200)
mumi/web/view/html.scm

index 5b1a56d..4d8a1e1 100644 (file)
@@ -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))))