From bd1b5b1ef144b90531d8e6f26386975818f9409c Mon Sep 17 00:00:00 2001
From: Axel Angel <axel+git@vneko.ch>
Date: Fri, 9 May 2014 00:17:16 +0200
Subject: [PATCH] Auth.Email: modern buttons, use translation RegisterLong

---
 yesod-auth/Yesod/Auth/Email.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/yesod-auth/Yesod/Auth/Email.hs b/yesod-auth/Yesod/Auth/Email.hs
index 217ea9e4..ee407344 100644
--- 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