From fd53c60fc9dcf7d106797576e0913c38edd13611 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 12 Oct 2010 13:28:06 +0200
Subject: [PATCH] Removed fiName

---
 Yesod/Form/Core.hs   | 3 ---
 Yesod/Form/Fields.hs | 3 ---
 2 files changed, 6 deletions(-)

diff --git a/Yesod/Form/Core.hs b/Yesod/Form/Core.hs
index 8a2e9553..39f9f97b 100644
--- a/Yesod/Form/Core.hs
+++ b/Yesod/Form/Core.hs
@@ -156,7 +156,6 @@ requiredFieldHelper (FieldProfile parse render mkWidget) ffs orig = GForm $ do
             { fiLabel = label
             , fiTooltip = tooltip
             , fiIdent = theId
-            , fiName = name
             , fiInput = mkWidget theId name val True
             , fiErrors = case res of
                             FormFailure [x] -> Just $ string x
@@ -188,7 +187,6 @@ optionalFieldHelper (FieldProfile parse render mkWidget) ffs orig' = GForm $ do
             { fiLabel = label
             , fiTooltip = tooltip
             , fiIdent = theId
-            , fiName = name
             , fiInput = mkWidget theId name val False
             , fiErrors = case res of
                             FormFailure x -> Just $ string $ unlines x
@@ -212,7 +210,6 @@ data FieldInfo sub y = FieldInfo
     { fiLabel :: Html
     , fiTooltip :: Html
     , fiIdent :: String
-    , fiName :: String
     , fiInput :: GWidget sub y ()
     , fiErrors :: Maybe Html
     }
diff --git a/Yesod/Form/Fields.hs b/Yesod/Form/Fields.hs
index 2469b6ed..4fd4b3db 100644
--- a/Yesod/Form/Fields.hs
+++ b/Yesod/Form/Fields.hs
@@ -108,7 +108,6 @@ boolField ffs orig = GForm $ do
             { fiLabel = label
             , fiTooltip = tooltip
             , fiIdent = theId
-            , fiName = name
             , fiInput = addBody [$hamlet|
 %input#$theId$!type=checkbox!name=$name$!:val:checked
 |]
@@ -158,7 +157,6 @@ selectField pairs ffs initial = GForm $ do
             { fiLabel = label
             , fiTooltip = tooltip
             , fiIdent = theId
-            , fiName = name
             , fiInput = addBody input
             , fiErrors = case res of
                             FormFailure [x] -> Just $ string x
@@ -201,7 +199,6 @@ maybeSelectField pairs ffs initial' = GForm $ do
             { fiLabel = label
             , fiTooltip = tooltip
             , fiIdent = theId
-            , fiName = name
             , fiInput = addBody input
             , fiErrors = case res of
                             FormFailure [x] -> Just $ string x