getBlogPosts :: SpockAction DB.Pipe session state ()
getBlogPosts = do
  allBlogPosts <- runQuery fetchAllBlogPosts
  lucid $ pageTemplate $ do
    h1_ "Blog"
    renderBlogPosts allBlogPosts
    a_ [ href_ "/add-blog-post" ] "Add Your Blog Post!"
getBlogPosts :: SpockAction DB.Pipe session state ()
getBlogPosts = do
  allBlogPosts <- runQuery fetchAllBlogPosts
  lucid $ pageTemplate $ do
    h1_ "Blog"
    renderBlogPosts allBlogPosts
    a_ [ href_ "/add-blog-post" ] "Add Your Blog Post!"
getBlogPosts = do
  allBlogPosts <- runQuery fetchAllBlogPosts
  lucid $ pageTemplate $ do
    h1_ "Blog"
    renderBlogPosts allBlogPosts
    a_ [ href_ "/add-blog-post" ] "Add Your Blog Post!"