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)