diff --git a/src/Roux/Html.hs b/src/Roux/Html.hs index 82b0bdb..aa3f3cb 100644 --- a/src/Roux/Html.hs +++ b/src/Roux/Html.hs @@ -910,7 +910,8 @@ renderRecentEntry :: CookLog.CookEntry -> Html renderRecentEntry entry = do H.span ! A.style "color: var(--roux-muted);" $ H.toHtml (formatDay (CookLog.ceCookedDate entry)) unless (T.null (CookLog.ceComment entry)) $ - H.span ! A.style "color: var(--roux-text);" $ ": " >> H.toHtml (CookLog.ceComment entry) + H.span ! A.style "color: var(--roux-text);" $ + ": " >> H.toHtml (CookLog.ceComment entry) H.span ", " -- | Render a single cook log entry.