addBlogPostForm :: SpockAction database session state ()
addBlogPostForm =
  lucid $
    pageTemplate $
      form_ [ method_ "post", action_ "/blog-posts" ] $ do
        p_ $ do
          label_ "Blog Post Name "
          input_ [ name_ "name" ]
        p_ $ do
          label_ "Body "
          termWith "textarea" [ name_ "body" ] mempty
        p_ $ do
          label_ "Image Src "
          input_ [ name_ "imageSrc" ]
        p_ $ do
          label_ "Image Alt "
          input_ [ name_ "imageAlt" ]
        p_ $ do
          label_ "Link Href 0 "
          input_ [ name_ "linkHref0" ]
        p_ $ do
          label_ "Link Text 0 "
          input_ [ name_ "linkText0" ]
        p_ $ do
          label_ "Link Href 1 "
          input_ [ name_ "linkHref1" ]
        p_ $ do
          label_ "Link Text 1 "
          input_ [ name_ "linkText1" ]
        p_ $ do
          label_ "Link Href 2 "
          input_ [ name_ "linkHref2" ]
        p_ $ do
          label_ "Link Text 2 "
          input_ [ name_ "linkText2" ]
        p_ $ do
          label_ "Link Href 3 "
          input_ [ name_ "linkHref3" ]
        p_ $ do
          label_ "Link Text 3 "
          input_ [ name_ "linkText3" ]
        p_ $ do
          label_ "Link Href 4 "
          input_ [ name_ "linkHref4" ]
        p_ $ do
          label_ "Link Text 4 "
          input_ [ name_ "linkText4" ]
        input_ [ type_ "submit", value_ "Add Blog Post" ]
addBlogPostForm :: SpockAction database session state ()
addBlogPostForm =
  lucid $
    pageTemplate $
      form_ [ method_ "post", action_ "/blog-posts" ] $ do
        p_ $ do
          label_ "Blog Post Name "
          input_ [ name_ "name" ]
        p_ $ do
          label_ "Body "
          termWith "textarea" [ name_ "body" ] mempty
        p_ $ do
          label_ "Image Src "
          input_ [ name_ "imageSrc" ]
        p_ $ do
          label_ "Image Alt "
          input_ [ name_ "imageAlt" ]
        p_ $ do
          label_ "Link Href 0 "
          input_ [ name_ "linkHref0" ]
        p_ $ do
          label_ "Link Text 0 "
          input_ [ name_ "linkText0" ]
        p_ $ do
          label_ "Link Href 1 "
          input_ [ name_ "linkHref1" ]
        p_ $ do
          label_ "Link Text 1 "
          input_ [ name_ "linkText1" ]
        p_ $ do
          label_ "Link Href 2 "
          input_ [ name_ "linkHref2" ]
        p_ $ do
          label_ "Link Text 2 "
          input_ [ name_ "linkText2" ]
        p_ $ do
          label_ "Link Href 3 "
          input_ [ name_ "linkHref3" ]
        p_ $ do
          label_ "Link Text 3 "
          input_ [ name_ "linkText3" ]
        p_ $ do
          label_ "Link Href 4 "
          input_ [ name_ "linkHref4" ]
        p_ $ do
          label_ "Link Text 4 "
          input_ [ name_ "linkText4" ]
        input_ [ type_ "submit", value_ "Add Blog Post" ]
addBlogPostForm =
  lucid $
    pageTemplate $
      form_ [ method_ "post", action_ "/blog-posts" ] $ do
        p_ $ do
          label_ "Blog Post Name "
          input_ [ name_ "name" ]
        p_ $ do
          label_ "Body "
          termWith "textarea" [ name_ "body" ] mempty
        p_ $ do
          label_ "Image Src "
          input_ [ name_ "imageSrc" ]
        p_ $ do
          label_ "Image Alt "
          input_ [ name_ "imageAlt" ]
        p_ $ do
          label_ "Link Href 0 "
          input_ [ name_ "linkHref0" ]
        p_ $ do
          label_ "Link Text 0 "
          input_ [ name_ "linkText0" ]
        p_ $ do
          label_ "Link Href 1 "
          input_ [ name_ "linkHref1" ]
        p_ $ do
          label_ "Link Text 1 "
          input_ [ name_ "linkText1" ]
        p_ $ do
          label_ "Link Href 2 "
          input_ [ name_ "linkHref2" ]
        p_ $ do
          label_ "Link Text 2 "
          input_ [ name_ "linkText2" ]
        p_ $ do
          label_ "Link Href 3 "
          input_ [ name_ "linkHref3" ]
        p_ $ do
          label_ "Link Text 3 "
          input_ [ name_ "linkText3" ]
        p_ $ do
          label_ "Link Href 4 "
          input_ [ name_ "linkHref4" ]
        p_ $ do
          label_ "Link Text 4 "
          input_ [ name_ "linkText4" ]
        input_ [ type_ "submit", value_ "Add Blog Post" ]