haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix optionalFieldHelper

Browse Source
This commit is contained in:
Michael Snoyman 2010-07-07 17:20:24 +03:00
parent 2a71c7ab9b
commit d6509266f4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Yesod/Form.hs
View File

@ -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, "")