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:
Joey Hess 2013-06-18 17:08:37 -04:00
parent 6ad6301cbd
commit e8827c29c6
2 changed files with 9 additions and 1 deletions

View file

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