haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use newIdent for identifiers

Browse Source
This commit is contained in:
Michael Snoyman 2010-10-04 17:07:55 +02:00
parent 0cc763d5b8
commit 9ba28dc72e
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Yesod/Helpers/Auth2/Email.hs
View File

@ -103,7 +103,7 @@ getRegisterR = do
%p Enter your e-mail address below, and a confirmation e-mail will be sent to you. %p Enter your e-mail address below, and a confirmation e-mail will be sent to you.
%form!method=post!action=@toMaster.register@ %form!method=post!action=@toMaster.register@
%label!for=email E-mail %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 %input!type=submit!value=Register
|] |]

5
Yesod/Helpers/Auth2/OpenId.hs
View File

@ -18,15 +18,16 @@ authOpenId =
complete2 = PluginR "openid" ["complete2"] complete2 = PluginR "openid" ["complete2"]
name = "openid_identifier" name = "openid_identifier"
login tm = do login tm = do
ident <- newIdent
addStyle [$cassius| addStyle [$cassius|
#openid #$ident$
background: #fff url(http://www.myopenid.com/static/openid-icon-small.gif) no-repeat scroll 0pt 50%; background: #fff url(http://www.myopenid.com/static/openid-icon-small.gif) no-repeat scroll 0pt 50%;
padding-left: 18px; padding-left: 18px;
|] |]
addBody [$hamlet| addBody [$hamlet|
%form!method=post!action=@tm.forward@ %form!method=post!action=@tm.forward@
%label!for=openid OpenID: $ %label!for=openid OpenID: $
%input#openid!type=text!name=$name$ %input#$ident$!type=text!name=$name$
%input!type=submit!value="Login via OpenID" %input!type=submit!value="Login via OpenID"
|] |]
forward2 complete' oid = do forward2 complete' oid = do