From d6509266f47283ac8bce7ce099d8d801e1d88271 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Wed, 7 Jul 2010 17:20:24 +0300 Subject: [PATCH] Fix optionalFieldHelper --- Yesod/Form.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Yesod/Form.hs b/Yesod/Form.hs index be59ab27..4d658344 100644 --- a/Yesod/Form.hs +++ b/Yesod/Form.hs @@ -217,7 +217,7 @@ optionalFieldHelper (FieldProfile parse render mkXml w name' label tooltip) orig name <- maybe newFormIdent return name' let (res, val) = if null env - then (FormMissing, maybe "" render orig) + then (FormSuccess Nothing, maybe "" render orig) else case lookup name env of Nothing -> (FormSuccess Nothing, "") Just "" -> (FormSuccess Nothing, "")