From ea3792839715c1bca3ba674cf4034cb39accdf2d Mon Sep 17 00:00:00 2001
From: Michael Sloan <mgsloan@gmail.com>
Date: Wed, 3 Jul 2013 23:16:50 -0700
Subject: [PATCH] Add autofocus to input fields of the Yesod.Auth.Email subsite

---
 yesod-auth/Yesod/Auth/Email.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/yesod-auth/Yesod/Auth/Email.hs b/yesod-auth/Yesod/Auth/Email.hs
index 043cb94f..2a424b29 100644
--- a/yesod-auth/Yesod/Auth/Email.hs
+++ b/yesod-auth/Yesod/Auth/Email.hs
@@ -181,7 +181,7 @@ getRegisterR = do
             <form method="post" action="@{tp registerR}">
                 <div id="registerForm">
                     <label for=#{email}>_{Msg.Email}:
-                    <input ##{email} type="email" name="email" width="150">
+                    <input ##{email} type="email" name="email" width="150" autofocus>
                 <button .btn>_{Msg.Register}
         |]
 
@@ -239,7 +239,7 @@ getForgotPasswordR = do
             <form method="post" action="@{tp forgotPasswordR}">
                 <div id="registerForm">
                     <label for=#{email}>_{Msg.ProvideIdentifier}
-                    <input ##{email} type=text name="email" width="150">
+                    <input ##{email} type=text name="email" width="150" autofocus>
                 <button .btn>_{Msg.SendPasswordResetEmail}
         |]
 
@@ -321,7 +321,7 @@ $newline never
             <th>
                 <label for=#{pass1}>_{Msg.NewPass}
             <td>
-                <input ##{pass1} type="password" name="new">
+                <input ##{pass1} type="password" name="new" autofocus>
         <tr>
             <th>
                 <label for=#{pass2}>_{Msg.ConfirmPass}