From d59344b78b9a5be1d45d72911a53820173e7a571 Mon Sep 17 00:00:00 2001 From: James Parker Date: Thu, 2 Feb 2017 01:55:00 -0500 Subject: [PATCH] housekeeping --- yesod-form/ChangeLog.md | 4 ++++ yesod-form/Yesod/Form/Functions.hs | 1 + yesod-form/yesod-form.cabal | 2 +- 3 files changed, 6 insertions(+), 1 deletion(-) diff --git a/yesod-form/ChangeLog.md b/yesod-form/ChangeLog.md index fdd3f56c..58731e1c 100644 --- a/yesod-form/ChangeLog.md +++ b/yesod-form/ChangeLog.md @@ -1,3 +1,7 @@ +## 1.4.10 + +* Fixed `identifyForm` to properly return `FormMissing` for empty forms. [#1072](https://github.com/yesodweb/yesod/issues/1072) + ## 1.4.9 * Added a `ToValue` instance for `Enctype` [#1296](https://github.com/yesodweb/yesod/pull/1296) diff --git a/yesod-form/Yesod/Form/Functions.hs b/yesod-form/Yesod/Form/Functions.hs index 73e26060..ed83624f 100644 --- a/yesod-form/Yesod/Form/Functions.hs +++ b/yesod-form/Yesod/Form/Functions.hs @@ -352,6 +352,7 @@ identifyForm identVal form = \fragment -> do | otherwise = id ( res', w) <- eraseParams (form fragment') + -- Empty forms now properly return FormMissing. [#1072](https://github.com/yesodweb/yesod/issues/1072) let res = if missing then FormMissing else res' return ( res, w) diff --git a/yesod-form/yesod-form.cabal b/yesod-form/yesod-form.cabal index bd5296e6..9f8a31de 100644 --- a/yesod-form/yesod-form.cabal +++ b/yesod-form/yesod-form.cabal @@ -1,5 +1,5 @@ name: yesod-form -version: 1.4.9 +version: 1.4.10 license: MIT license-file: LICENSE author: Michael Snoyman