-- Lucid View

blogPostToRow :: BlogPost -> Html ()
blogPostToRow blogPost =
  tr_ $ do
    td_ (toHtml (blogPostDateTime blogPost))
    td_ (toHtml (blogPostName blogPost))
    td_ (toHtml (blogPostBody blogPost))
    td_ $ img_ [ src_ (fst (blogPostImage blogPost)), alt_ (snd (blogPostImage blogPost)), style_ "width:100px" ]
    td_ $ foldMap linkToLink $ blogPostLinks blogPost
blogPostToRow :: BlogPost -> Html ()
blogPostToRow blogPost =
  tr_ $ do
    td_ (toHtml (blogPostDateTime blogPost))
    td_ (toHtml (blogPostName blogPost))
    td_ (toHtml (blogPostBody blogPost))
    td_ $ img_ [ src_ (fst (blogPostImage blogPost)), alt_ (snd (blogPostImage blogPost)), style_ "width:100px" ]
    td_ $ foldMap linkToLink $ blogPostLinks blogPost
blogPostToRow blogPost =
  tr_ $ do
    td_ (toHtml (blogPostDateTime blogPost))
    td_ (toHtml (blogPostName blogPost))
    td_ (toHtml (blogPostBody blogPost))
    td_ $ img_ [ src_ (fst (blogPostImage blogPost)), alt_ (snd (blogPostImage blogPost)), style_ "width:100px" ]
    td_ $ foldMap linkToLink $ blogPostLinks blogPost