Auth.Email: modern buttons, use translation RegisterLong

2014-05-09 00:17:16 +02:00 · 2014-05-09 00:17:16 +02:00 · bd1b5b1ef1
commit bd1b5b1ef1
parent 60526676e5
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