Use newIdent for identifiers

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
 |]
 

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