diff --git a/yesod-form/ChangeLog.md b/yesod-form/ChangeLog.md index 82bb47bc..7c465ccb 100644 --- a/yesod-form/ChangeLog.md +++ b/yesod-form/ChangeLog.md @@ -1,3 +1,7 @@ +## 1.4.4.1 + +* runFormPost has wrong behavior for empty forms [#950](https://github.com/yesodweb/yesod/issues/950) + ## 1.4.4 * Add a `Semigroup` instance diff --git a/yesod-form/Yesod/Form/Functions.hs b/yesod-form/Yesod/Form/Functions.hs index acfe21b7..0d83b799 100644 --- a/yesod-form/Yesod/Form/Functions.hs +++ b/yesod-form/Yesod/Form/Functions.hs @@ -223,6 +223,7 @@ postHelper form env = do ((res, xml), enctype) <- runFormGeneric (form token) m langs env let res' = case (res, env) of + (_, Nothing) -> FormMissing (FormSuccess{}, Just (params, _)) | not (Map.lookup tokenKey params === reqToken req) -> FormFailure [renderMessage m langs MsgCsrfWarning] diff --git a/yesod-form/yesod-form.cabal b/yesod-form/yesod-form.cabal index da6d4386..7849763e 100644 --- a/yesod-form/yesod-form.cabal +++ b/yesod-form/yesod-form.cabal @@ -1,5 +1,5 @@ name: yesod-form -version: 1.4.4 +version: 1.4.4.1 license: MIT license-file: LICENSE author: Michael Snoyman