From 95392aba0ad539129f8ceb73ccc7a6e9c44958aa Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Fri, 13 Aug 2010 15:38:24 +0300 Subject: [PATCH] Minor code cleanup --- Yesod/Form.hs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/Yesod/Form.hs b/Yesod/Form.hs index 0e83f9ef..6a7895ed 100644 --- a/Yesod/Form.hs +++ b/Yesod/Form.hs @@ -225,11 +225,11 @@ instance IsString FormFieldSettings where -- | Create a required field (ie, one that cannot be blank) from a -- 'FieldProfile'.ngs -requiredFieldHelper :: FieldProfile sub y a -> FormFieldSettings -> Maybe a -> FormField sub y a -requiredFieldHelper - (FieldProfile parse render mkXml w) - (FormFieldSettings label tooltip theId' name') orig = +requiredFieldHelper :: FieldProfile sub y a -> FormFieldSettings + -> Maybe a -> FormField sub y a +requiredFieldHelper (FieldProfile parse render mkXml w) ffs orig = GForm $ \env _ -> do + let (FormFieldSettings label tooltip theId' name') = ffs name <- maybe newFormIdent return name' theId <- maybe newFormIdent return theId' let (res, val) = @@ -256,11 +256,11 @@ requiredFieldHelper -- | Create an optional field (ie, one that can be blank) from a -- 'FieldProfile'. -optionalFieldHelper :: FieldProfile sub y a -> FormFieldSettings -> FormletField sub y (Maybe a) -optionalFieldHelper - (FieldProfile parse render mkXml w) - (FormFieldSettings label tooltip theId' name') orig' = +optionalFieldHelper :: FieldProfile sub y a -> FormFieldSettings + -> FormletField sub y (Maybe a) +optionalFieldHelper (FieldProfile parse render mkXml w) ffs orig' = GForm $ \env _ -> do + let (FormFieldSettings label tooltip theId' name') = ffs let orig = join orig' name <- maybe newFormIdent return name' theId <- maybe newFormIdent return theId'