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

maybeIntInput

Browse Source
This commit is contained in:
Michael Snoyman 2010-10-10 13:05:06 +02:00
parent 0c611f58fd
commit 4451378c5d
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Yesod/Form/Fields.hs
View File

@ -37,6 +37,7 @@ module Yesod.Form.Fields
-- ** Optional -- ** Optional
, maybeStringInput , maybeStringInput
, maybeDayInput , maybeDayInput
, maybeIntInput
) where ) where
import Yesod.Form.Core import Yesod.Form.Core
@ -59,6 +60,11 @@ intInput n =
mapFormXml fieldsToInput $ mapFormXml fieldsToInput $
requiredFieldHelper intFieldProfile (nameSettings n) Nothing requiredFieldHelper intFieldProfile (nameSettings n) Nothing
maybeIntInput :: Integral i => String -> FormInput sub master (Maybe i)
maybeIntInput n =
mapFormXml fieldsToInput $
optionalFieldHelper intFieldProfile (nameSettings n) Nothing
intField :: Integral i => FormFieldSettings -> FormletField sub y i intField :: Integral i => FormFieldSettings -> FormletField sub y i
intField = requiredFieldHelper intFieldProfile intField = requiredFieldHelper intFieldProfile

2
yesod.cabal
View File

@ -1,5 +1,5 @@
name: yesod name: yesod
version: 0.5.2 version: 0.5.3
license: BSD3 license: BSD3
license-file: LICENSE license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com> author: Michael Snoyman <michael@snoyman.com>