diff options
Diffstat (limited to 'Omni/Jr/Web.hs')
| -rw-r--r-- | Omni/Jr/Web.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Omni/Jr/Web.hs b/Omni/Jr/Web.hs index 7555e22..f7a2219 100644 --- a/Omni/Jr/Web.hs +++ b/Omni/Jr/Web.hs @@ -1632,9 +1632,11 @@ instance Lucid.ToHtml TaskDetailPage where authorClass = case TaskCore.commentAuthor c of TaskCore.Human -> "author-human" TaskCore.Junior -> "author-junior" + TaskCore.System -> "author-system" authorLabel author = case author of TaskCore.Human -> "Human" :: Text TaskCore.Junior -> "Junior" :: Text + TaskCore.System -> "System" :: Text commentForm :: (Monad m) => Text -> Lucid.HtmlT m () commentForm tid = |