Merge pull request #731 from andrewthad/master

Fix starting field number
This commit is contained in:
Michael Snoyman 2014-05-09 18:28:07 +03:00
commit c8f7e34b2f

View File

@ -185,7 +185,7 @@ runFormGeneric :: Monad m
-> [Text]
-> Maybe (Env, FileEnv)
-> m (a, Enctype)
runFormGeneric form site langs env = evalRWST form (env, site, langs) (IntSingle 1)
runFormGeneric form site langs env = evalRWST form (env, site, langs) (IntSingle 0)
-- | This function is used to both initially render a form and to later extract
-- results from it. Note that, due to CSRF protection and a few other issues,