Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

runFormPostTable -> runFormTable

  • Loading branch information...
commit ae69262ab3c89fc216316577e8c157129f28e04a 1 parent 0b5b132
@snoyberg snoyberg authored
Showing with 8 additions and 8 deletions.
  1. +8 −8 Yesod/Form.hs
View
16 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$
Please sign in to comment.
Something went wrong with that request. Please try again.