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

Minor code cleanup

Browse Source
This commit is contained in:
Michael Snoyman 2010-08-13 15:38:24 +03:00
parent cc102b67d9
commit 95392aba0a
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Yesod/Form.hs
View File

@ -225,11 +225,11 @@ instance IsString FormFieldSettings where
-- | Create a required field (ie, one that cannot be blank) from a -- | Create a required field (ie, one that cannot be blank) from a
-- 'FieldProfile'.ngs -- 'FieldProfile'.ngs
requiredFieldHelper :: FieldProfile sub y a -> FormFieldSettings -> Maybe a -> FormField sub y a requiredFieldHelper :: FieldProfile sub y a -> FormFieldSettings
requiredFieldHelper -> Maybe a -> FormField sub y a
(FieldProfile parse render mkXml w) requiredFieldHelper (FieldProfile parse render mkXml w) ffs orig =
(FormFieldSettings label tooltip theId' name') orig =
GForm $ \env _ -> do GForm $ \env _ -> do
let (FormFieldSettings label tooltip theId' name') = ffs
name <- maybe newFormIdent return name' name <- maybe newFormIdent return name'
theId <- maybe newFormIdent return theId' theId <- maybe newFormIdent return theId'
let (res, val) = let (res, val) =
@ -256,11 +256,11 @@ requiredFieldHelper
-- | Create an optional field (ie, one that can be blank) from a -- | Create an optional field (ie, one that can be blank) from a
-- 'FieldProfile'. -- 'FieldProfile'.
optionalFieldHelper :: FieldProfile sub y a -> FormFieldSettings -> FormletField sub y (Maybe a) optionalFieldHelper :: FieldProfile sub y a -> FormFieldSettings
optionalFieldHelper -> FormletField sub y (Maybe a)
(FieldProfile parse render mkXml w) optionalFieldHelper (FieldProfile parse render mkXml w) ffs orig' =
(FormFieldSettings label tooltip theId' name') orig' =
GForm $ \env _ -> do GForm $ \env _ -> do
let (FormFieldSettings label tooltip theId' name') = ffs
let orig = join orig' let orig = join orig'
name <- maybe newFormIdent return name' name <- maybe newFormIdent return name'
theId <- maybe newFormIdent return theId' theId <- maybe newFormIdent return theId'