haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed bug in boolInput

Browse Source
This commit is contained in:
Michael Snoyman 2010-07-24 22:34:08 +03:00
parent e6dc40d582
commit 55e4771104
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Yesod/Form.hs
View File

@ -742,7 +742,7 @@ maybeStringInput n =
boolInput :: String -> FormInput sub master Bool
boolInput n = GForm $ \env _ -> return
(FormSuccess $ isJust $ lookup n env, return $ addBody [$hamlet|
(FormSuccess $ fromMaybe "" (lookup n env) /= "", return $ addBody [$hamlet|
%input#$n$!type=checkbox!name=$n$
|], UrlEncoded)