display blog category, too
commit08d39457441264f53c5fce75c2ca0c938f65a8c2
authorAgentM <agentm@themactionfaction.com>
dateSun 8 Oct 2017, 20:28 (9 years ago)
parentf0d2499
examples/blog.hs+1−1
@@ -182,7 +182,7 @@ showBlogEntry sessionId conn = do
182182 render $ do
183183 --show blog details
184184 h1 (toHtml (title blog))
185− p (toHtml ("Posted at " <> formatStamp (stamp blog)))
185+ p (toHtml ("Posted at " <> formatStamp (stamp blog) <> " under " <> show (category blog)))
186186 p (toHtml (entry blog))
187187 hr
188188 h3 "Comments"