Wrapped email login form with an id

2016-03-09 20:04:39 -07:00 · 2016-03-09 20:04:39 -07:00 · 2f0a7fbcc5
commit 2f0a7fbcc5
parent 0c0cb12a10
1 changed files with 8 additions and 7 deletions
--- a/yesod-auth/Yesod/Auth/Email.hs
+++ b/yesod-auth/Yesod/Auth/Email.hs
@ -284,13 +284,14 @@ emailLoginHandler toParent = do

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