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

Added intInput

Browse Source
This commit is contained in:
Michael Snoyman 2010-07-21 09:41:25 +03:00
parent 2391995622
commit 4b2b14e3ac
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Yesod/Form.hs
View File

@ -72,6 +72,7 @@ module Yesod.Form
-- * Pre-built inputs -- * Pre-built inputs
, stringInput , stringInput
, maybeStringInput , maybeStringInput
, intInput
, boolInput , boolInput
, dayInput , dayInput
, maybeDayInput , maybeDayInput
@ -308,6 +309,13 @@ instance ToFormField String where
instance ToFormField (Maybe String) where instance ToFormField (Maybe String) where
toFormField = maybeStringField toFormField = maybeStringField
intInput :: Integral i => String -> FormInput sub master i
intInput n =
mapFormXml fieldsToInput $
requiredFieldHelper intFieldProfile
{ fpName = Just n
} Nothing
intField :: Integral i => Html () -> Html () -> FormletField sub y i intField :: Integral i => Html () -> Html () -> FormletField sub y i
intField l t = requiredFieldHelper intFieldProfile intField l t = requiredFieldHelper intFieldProfile
{ fpLabel = l { fpLabel = l