From 9ba28dc72ec0d4f0c426e1d482b29f22fa63da13 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 4 Oct 2010 17:07:55 +0200
Subject: [PATCH] Use newIdent for identifiers

---
 Yesod/Helpers/Auth2/Email.hs  | 2 +-
 Yesod/Helpers/Auth2/OpenId.hs | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/Yesod/Helpers/Auth2/Email.hs b/Yesod/Helpers/Auth2/Email.hs
index 9d931c83..d1574bd5 100644
--- a/Yesod/Helpers/Auth2/Email.hs
+++ b/Yesod/Helpers/Auth2/Email.hs
@@ -103,7 +103,7 @@ getRegisterR = do
 %p Enter your e-mail address below, and a confirmation e-mail will be sent to you.
 %form!method=post!action=@toMaster.register@
     %label!for=email E-mail
-    %input#email!type=email!name=email!width=150
+    %input!type=email!name=email!width=150
     %input!type=submit!value=Register
 |]
 
diff --git a/Yesod/Helpers/Auth2/OpenId.hs b/Yesod/Helpers/Auth2/OpenId.hs
index d512bc5a..13f57aab 100644
--- a/Yesod/Helpers/Auth2/OpenId.hs
+++ b/Yesod/Helpers/Auth2/OpenId.hs
@@ -18,15 +18,16 @@ authOpenId =
     complete2 = PluginR "openid" ["complete2"]
     name = "openid_identifier"
     login tm = do
+        ident <- newIdent
         addStyle [$cassius|
-#openid
+#$ident$
     background: #fff url(http://www.myopenid.com/static/openid-icon-small.gif) no-repeat scroll 0pt 50%;
     padding-left: 18px;
 |]
         addBody [$hamlet|
 %form!method=post!action=@tm.forward@
     %label!for=openid OpenID: $
-    %input#openid!type=text!name=$name$
+    %input#$ident$!type=text!name=$name$
     %input!type=submit!value="Login via OpenID"
 |]
     forward2 complete' oid = do