Added autofocus attribute to email input

2016-02-20 13:47:42 -07:00 · 2016-02-20 13:47:42 -07:00 · 456e93fb10
commit 456e93fb10
parent 27e1ec3be3
1 changed files with 1 additions and 1 deletions
--- a/yesod-auth/Yesod/Auth/Email.hs
+++ b/yesod-auth/Yesod/Auth/Email.hs
@ -319,7 +319,7 @@ defaultRegisterHandler = do
                fsTooltip = Nothing,
                fsId = Just "email",
                fsName = Just "email",
-                fsAttrs = []
+                fsAttrs = [("autofocus", "")]
            }

            (emailRes, emailView) <- mreq emailField emailSettings Nothing