diff options
| -rw-r--r-- | Omni/Jr/Web.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Omni/Jr/Web.hs b/Omni/Jr/Web.hs index 79e32f6..e1933e2 100644 --- a/Omni/Jr/Web.hs +++ b/Omni/Jr/Web.hs @@ -566,7 +566,7 @@ instance Lucid.ToHtml TaskListPage where Lucid.div_ [Lucid.id_ "task-list"] <| do if null tasks then Lucid.p_ [Lucid.class_ "empty-msg"] "No tasks match the current filters." - else Lucid.div_ [Lucid.class_ "task-list"] <| traverse_ renderTaskCard tasks + else Lucid.div_ [Lucid.class_ "list-group"] <| traverse_ renderListGroupItem tasks where maybeSelected :: (Eq a) => Maybe a -> Maybe a -> [Lucid.Attribute] maybeSelected opt current = [Lucid.selected_ "selected" | opt == current] @@ -1159,7 +1159,7 @@ instance Lucid.ToHtml TaskListPartial where toHtml (TaskListPartial tasks) = if null tasks then Lucid.p_ [Lucid.class_ "empty-msg"] "No tasks match the current filters." - else Lucid.div_ [Lucid.class_ "task-list"] <| traverse_ renderTaskCard tasks + else Lucid.div_ [Lucid.class_ "list-group"] <| traverse_ renderListGroupItem tasks instance Lucid.ToHtml TaskMetricsPartial where toHtmlRaw = Lucid.toHtml |