app :: SpockM DB.Pipe session state ()
app = do
  get "/" getBlogPosts
  post "/blog-posts" postBlogPost
  get "/add-blog-post" addBlogPostForm
app :: SpockM DB.Pipe session state ()
app = do
  get "/" getBlogPosts
  post "/blog-posts" postBlogPost
  get "/add-blog-post" addBlogPostForm
app = do
  get "/" getBlogPosts
  post "/blog-posts" postBlogPost
  get "/add-blog-post" addBlogPostForm