From 8d0d56669737ad682720292f9c52878d61ea067e Mon Sep 17 00:00:00 2001 From: nek0 Date: Wed, 10 Oct 2018 17:30:15 +0200 Subject: [PATCH] atofocus --- Handler/Pinentry.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Handler/Pinentry.hs b/Handler/Pinentry.hs index 758c064..96b0c9b 100644 --- a/Handler/Pinentry.hs +++ b/Handler/Pinentry.hs @@ -53,5 +53,5 @@ postPinentryR uId = do ) pinentryForm :: AForm Handler Text -pinentryForm = areq passwordField (bfs MsgPIN) Nothing +pinentryForm = areq passwordField (withAtofocus $ bfs MsgPIN) Nothing <* bootstrapSubmit (msgToBSSubmit MsgSubmit)