From 456e93fb1008d66694fe416b564f6c8384bcab8b Mon Sep 17 00:00:00 2001 From: Alex Kardos Date: Sat, 20 Feb 2016 13:47:42 -0700 Subject: [PATCH] Added autofocus attribute to email input --- yesod-auth/Yesod/Auth/Email.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yesod-auth/Yesod/Auth/Email.hs b/yesod-auth/Yesod/Auth/Email.hs index a0c7b6d0..025a788d 100644 --- 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