From 257bad8874cc387709a65bc1fdc45166870e8768 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 26 Jul 2010 14:42:41 +0300
Subject: [PATCH] Fixed reversed id and name

---
 Yesod/Form.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Yesod/Form.hs b/Yesod/Form.hs
index 40a75e0c..07bb4fc8 100644
--- a/Yesod/Form.hs
+++ b/Yesod/Form.hs
@@ -224,7 +224,7 @@ data FormFieldSettings = FormFieldSettings
 requiredFieldHelper :: FieldProfile sub y a -> FormFieldSettings -> Maybe a -> FormField sub y a
 requiredFieldHelper
     (FieldProfile parse render mkXml w)
-    (FormFieldSettings label tooltip name' theId') orig =
+    (FormFieldSettings label tooltip theId' name') orig =
   GForm $ \env _ -> do
     name <- maybe newFormIdent return name'
     theId <- maybe newFormIdent return theId'
@@ -255,7 +255,7 @@ requiredFieldHelper
 optionalFieldHelper :: FieldProfile sub y a -> FormFieldSettings -> FormletField sub y (Maybe a)
 optionalFieldHelper
  (FieldProfile parse render mkXml w)
- (FormFieldSettings label tooltip name' theId') orig' =
+ (FormFieldSettings label tooltip theId' name') orig' =
   GForm $ \env _ -> do
     let orig = join orig'
     name <- maybe newFormIdent return name'