From fd10f42db7c521317df8c92ee6c89ec83764632f Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Fri, 22 Oct 2010 00:02:49 +0200
Subject: [PATCH] generateForm

---
 Yesod/Form.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/Yesod/Form.hs b/Yesod/Form.hs
index 3c4fe99c..c34d55e9 100644
--- a/Yesod/Form.hs
+++ b/Yesod/Form.hs
@@ -19,6 +19,7 @@ module Yesod.Form
     , FormletField
     , FormInput
       -- * Unwrapping functions
+    , generateForm
     , runFormGet
     , runFormMonadGet
     , runFormPost
@@ -119,6 +120,12 @@ helper (FormSuccess a, _, _) = return a
 helper (FormFailure e, _, _) = invalidArgs e
 helper (FormMissing, _, _) = invalidArgs ["No input found"]
 
+-- | Generate a form, feeding it no data.
+generateForm :: GForm s m xml a -> GHandler s m (xml, Enctype)
+generateForm f = do
+    (_, b, c) <- runFormGeneric [] [] f
+    return (b, c)
+
 -- | Run a form against GET parameters.
 runFormGet :: GForm s m xml a -> GHandler s m (FormResult a, xml, Enctype)
 runFormGet f = do