blogPostFromPOST :: SpockAction database session state (Maybe BlogPost)
blogPostFromPOST = runMaybeT $ do
  name <- MaybeT $ param "name"
  body <- MaybeT $ param "body"
  imageSrc <- MaybeT $ param "imageSrc"
  imageAlt <- MaybeT $ param "imageAlt" -- :: MaybeT (ActionCtxT () (WebStateM database session state)) T.Text
  linkHref0 <- MaybeT $ param "linkHref0"
  linkText0 <- MaybeT $ param "linkText0"
  linkHref1 <- MaybeT $ param "linkHref1"
  linkText1 <- MaybeT $ param "linkText1"
  linkHref2 <- MaybeT $ param "linkHref2"
  linkText2 <- MaybeT $ param "linkText2"
  linkHref3 <- MaybeT $ param "linkHref3"
  linkText3 <- MaybeT $ param "linkText3"
  linkHref4 <- MaybeT $ param "linkHref4"
  linkText4 <- MaybeT $ param "linkText4"
  return $ BlogPost "" name body (imageSrc, imageAlt) [(linkHref0, linkText0), (linkHref1, linkText1), (linkHref2, linkText2), (linkHref3, linkText3), (linkHref4, linkText4)]
blogPostFromPOST :: SpockAction database session state (Maybe BlogPost)
blogPostFromPOST = runMaybeT $ do
  name <- MaybeT $ param "name"
  body <- MaybeT $ param "body"
  imageSrc <- MaybeT $ param "imageSrc"
  imageAlt <- MaybeT $ param "imageAlt" -- :: MaybeT (ActionCtxT () (WebStateM database session state)) T.Text
  linkHref0 <- MaybeT $ param "linkHref0"
  linkText0 <- MaybeT $ param "linkText0"
  linkHref1 <- MaybeT $ param "linkHref1"
  linkText1 <- MaybeT $ param "linkText1"
  linkHref2 <- MaybeT $ param "linkHref2"
  linkText2 <- MaybeT $ param "linkText2"
  linkHref3 <- MaybeT $ param "linkHref3"
  linkText3 <- MaybeT $ param "linkText3"
  linkHref4 <- MaybeT $ param "linkHref4"
  linkText4 <- MaybeT $ param "linkText4"
  return $ BlogPost "" name body (imageSrc, imageAlt) [(linkHref0, linkText0), (linkHref1, linkText1), (linkHref2, linkText2), (linkHref3, linkText3), (linkHref4, linkText4)]
blogPostFromPOST = runMaybeT $ do
  name <- MaybeT $ param "name"
  body <- MaybeT $ param "body"
  imageSrc <- MaybeT $ param "imageSrc"
  imageAlt <- MaybeT $ param "imageAlt" -- :: MaybeT (ActionCtxT () (WebStateM database session state)) T.Text
  linkHref0 <- MaybeT $ param "linkHref0"
  linkText0 <- MaybeT $ param "linkText0"
  linkHref1 <- MaybeT $ param "linkHref1"
  linkText1 <- MaybeT $ param "linkText1"
  linkHref2 <- MaybeT $ param "linkHref2"
  linkText2 <- MaybeT $ param "linkText2"
  linkHref3 <- MaybeT $ param "linkHref3"
  linkText3 <- MaybeT $ param "linkText3"
  linkHref4 <- MaybeT $ param "linkHref4"
  linkText4 <- MaybeT $ param "linkText4"
  return $ BlogPost "" name body (imageSrc, imageAlt) [(linkHref0, linkText0), (linkHref1, linkText1), (linkHref2, linkText2), (linkHref3, linkText3), (linkHref4, linkText4)]