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

Fixed reversed id and name

Browse Source
This commit is contained in:
Michael Snoyman 2010-07-26 14:42:41 +03:00
parent 50fa02953e
commit 257bad8874
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Yesod/Form.hs
View File

@ -224,7 +224,7 @@ data FormFieldSettings = FormFieldSettings
requiredFieldHelper :: FieldProfile sub y a -> FormFieldSettings -> Maybe a -> FormField sub y a requiredFieldHelper :: FieldProfile sub y a -> FormFieldSettings -> Maybe a -> FormField sub y a
requiredFieldHelper requiredFieldHelper
(FieldProfile parse render mkXml w) (FieldProfile parse render mkXml w)
(FormFieldSettings label tooltip name' theId') orig = (FormFieldSettings label tooltip theId' name') orig =
GForm $ \env _ -> do GForm $ \env _ -> do
name <- maybe newFormIdent return name' name <- maybe newFormIdent return name'
theId <- maybe newFormIdent return theId' theId <- maybe newFormIdent return theId'
@ -255,7 +255,7 @@ requiredFieldHelper
optionalFieldHelper :: FieldProfile sub y a -> FormFieldSettings -> FormletField sub y (Maybe a) optionalFieldHelper :: FieldProfile sub y a -> FormFieldSettings -> FormletField sub y (Maybe a)
optionalFieldHelper optionalFieldHelper
(FieldProfile parse render mkXml w) (FieldProfile parse render mkXml w)
(FormFieldSettings label tooltip name' theId') orig' = (FormFieldSettings label tooltip theId' name') orig' =
GForm $ \env _ -> do GForm $ \env _ -> do
let orig = join orig' let orig = join orig'
name <- maybe newFormIdent return name' name <- maybe newFormIdent return name'