maybeIntInput

Yesod/Form/Fields.hs

@@ -37,6 +37,7 @@ module Yesod.Form.Fields
       -- ** Optional
     , maybeStringInput
     , maybeDayInput
+    , maybeIntInput
     ) where
 
 import Yesod.Form.Core
@@ -59,6 +60,11 @@ intInput n =
     mapFormXml fieldsToInput $
     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 = requiredFieldHelper intFieldProfile
 

yesod.cabal

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