nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

atofocus

Browse source
This commit is contained in:
nek0 2018-10-10 17:30:15 +02:00
parent 1bf18535f8
commit 8d0d566697
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Handler/Pinentry.hs
View file

@ -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)