Make field readonly, not disabled
Working on Windows horriblness all day sure did nice things to my mood, didn't it?
This commit is contained in:
parent
6ad6301cbd
commit
e8827c29c6
2 changed files with 9 additions and 1 deletions
|
@ -33,6 +33,13 @@ textField = F.textField
|
|||
|]
|
||||
}
|
||||
|
||||
readonlyTextField :: MkField Text
|
||||
readonlyTextField = F.textField
|
||||
{ fieldView = \theId name attrs val _isReq -> [whamlet|
|
||||
<input id="#{theId}" name="#{name}" *{attrs} type="text" value="#{either id id val}" readonly="true">
|
||||
|]
|
||||
}
|
||||
|
||||
{- Also without required attribute. -}
|
||||
passwordField :: MkField Text
|
||||
passwordField = F.passwordField
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue