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

Wrapped email login form with an id

Browse Source
This commit is contained in:
Alex Kardos 2016-03-09 20:04:39 -07:00
parent 0c0cb12a10
commit 2f0a7fbcc5
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
yesod-auth/Yesod/Auth/Email.hs
View File

@ -284,13 +284,14 @@ emailLoginHandler toParent = do
[whamlet| [whamlet|
<form method="post" action="@{toParent loginR}"> <form method="post" action="@{toParent loginR}">
^{widget} <div id="emailLoginForm">
<div> ^{widget}
<button type=submit .btn .btn-success> <div>
_{Msg.LoginViaEmail} <button type=submit .btn .btn-success>
&nbsp; _{Msg.LoginViaEmail}
<a href="@{toParent registerR}" .btn .btn-default> &nbsp;
_{Msg.RegisterLong} <a href="@{toParent registerR}" .btn .btn-default>
_{Msg.RegisterLong}
|] |]
where where
loginForm extra = do loginForm extra = do