Merge pull request #735 from axel-angel/master

Auth.Email: modern buttons, use translation RegisterLong
2014-05-09 07:31:04 +03:00 · 2014-05-09 07:31:04 +03:00 · ddc622485a
commit ddc622485a
parent 663aa4d804 bd1b5b1ef1
1 changed files with 5 additions and 2 deletions
--- a/yesod-auth/Yesod/Auth/Email.hs
+++ b/yesod-auth/Yesod/Auth/Email.hs
@ -250,8 +250,11 @@ $newline never
                <input type="password" name="password">
        <tr>
            <td colspan="2">
-                <input type="submit" value=_{Msg.LoginViaEmail}>
-                <a href="@{tm registerR}">I don't have an account
+                <button type=submit .btn .btn-success>
+                    _{Msg.LoginViaEmail}
+                &nbsp;
+                <a href="@{tm registerR}" .btn .btn-default>
+                    _{Msg.RegisterLong}
 |]
  where
    dispatch "GET" ["register"] = getRegisterR >>= sendResponse