renderBlogPosts :: [BlogPost] -> Html ()
renderBlogPosts blogPosts =
  table_ $
    thead_ $ do
      tr_ $ do
        th_ "Date and Time"
        th_ "Name"
        th_ "Body"
        th_ "Image"
        th_ "Links"
      tbody_ (foldMap blogPostToRow blogPosts)
renderBlogPosts :: [BlogPost] -> Html ()
renderBlogPosts blogPosts =
  table_ $
    thead_ $ do
      tr_ $ do
        th_ "Date and Time"
        th_ "Name"
        th_ "Body"
        th_ "Image"
        th_ "Links"
      tbody_ (foldMap blogPostToRow blogPosts)
renderBlogPosts blogPosts =
  table_ $
    thead_ $ do
      tr_ $ do
        th_ "Date and Time"
        th_ "Name"
        th_ "Body"
        th_ "Image"
        th_ "Links"
      tbody_ (foldMap blogPostToRow blogPosts)