diff --git a/Yesod/Form.hs b/Yesod/Form.hs index 5d0aeabb..0fd42b43 100644 --- a/Yesod/Form.hs +++ b/Yesod/Form.hs @@ -30,8 +30,8 @@ module Yesod.Form , runFormGet' , runFormPost' -- ** High-level form post unwrappers - , runFormPostTable - , runFormPostDivs + , runFormTable + , runFormDivs -- * Field/form helpers , fieldsToTable , fieldsToDivs @@ -154,9 +154,9 @@ runFormPost' f = do -- some of the boiler-plate in creating forms. In particular, is automatically -- creates the form element, sets the method, action and enctype attributes, -- adds the CSRF-protection nonce hidden field and inserts a submit button. -runFormPostTable :: Route m -> String -> FormField s m a - -> GHandler s m (FormResult a, GWidget s m ()) -runFormPostTable dest inputLabel form = do +runFormTable :: Route m -> String -> FormField s m a + -> GHandler s m (FormResult a, GWidget s m ()) +runFormTable dest inputLabel form = do (res, widget, enctype, nonce) <- runFormPost $ fieldsToTable form let widget' = [$hamlet| %form!method=post!action=@dest@!enctype=$enctype$ @@ -170,9 +170,9 @@ runFormPostTable dest inputLabel form = do return (res, widget') -- | Same as 'runFormPostTable', but uses 'fieldsToDivs' for styling. -runFormPostDivs :: Route m -> String -> FormField s m a - -> GHandler s m (FormResult a, GWidget s m ()) -runFormPostDivs dest inputLabel form = do +runFormDivs :: Route m -> String -> FormField s m a + -> GHandler s m (FormResult a, GWidget s m ()) +runFormDivs dest inputLabel form = do (res, widget, enctype, nonce) <- runFormPost $ fieldsToDivs form let widget' = [$hamlet| %form!method=post!action=@dest@!enctype=$enctype$