This commit is contained in:
nek0 2018-10-10 17:30:15 +02:00
parent 1bf18535f8
commit 8d0d566697

View file

@ -53,5 +53,5 @@ postPinentryR uId = do
) )
pinentryForm :: AForm Handler Text pinentryForm :: AForm Handler Text
pinentryForm = areq passwordField (bfs MsgPIN) Nothing pinentryForm = areq passwordField (withAtofocus $ bfs MsgPIN) Nothing
<* bootstrapSubmit (msgToBSSubmit MsgSubmit) <* bootstrapSubmit (msgToBSSubmit MsgSubmit)