From bfe0b2867a8e7b437ef8aabdbe5f88e10cd67411 Mon Sep 17 00:00:00 2001
From: Axel Angel <axel+git@vneko.ch>
Date: Thu, 12 Jun 2014 17:10:04 +0200
Subject: [PATCH] Adapt generateFormGet to follow the post variant (deprecate
 non-prime)

To stay backward compatible, we fix this in generateFormGet'

From discussion:
https://groups.google.com/forum/#!topic/yesodweb/lWKFzJDOnnY
---
 yesod-form/Yesod/Form/Functions.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/yesod-form/Yesod/Form/Functions.hs b/yesod-form/Yesod/Form/Functions.hs
index d84633ea..4bac7efc 100644
--- a/yesod-form/Yesod/Form/Functions.hs
+++ b/yesod-form/Yesod/Form/Functions.hs
@@ -23,6 +23,7 @@ module Yesod.Form.Functions
     , runFormGet
       -- * Generate a blank form
     , generateFormPost
+    , generateFormGet'
     , generateFormGet
       -- * More than one form on a handler
     , identifyForm
@@ -269,6 +270,14 @@ runFormGet form = do
                 Just _ -> Just (Map.unionsWith (++) $ map (\(x, y) -> Map.singleton x [y]) gets, Map.empty)
     getHelper form env
 
+{- FIXME: generateFormGet' "Will be renamed to generateFormGet in next verison of Yesod" -}
+generateFormGet'
+    :: (RenderMessage (HandlerSite m) FormMessage, MonadHandler m)
+    => (Html -> MForm m (FormResult a, xml))
+    -> m (xml, Enctype)
+generateFormGet' form = first snd `liftM` getHelper form Nothing
+
+{-# DEPRECATED generateFormGet "Will require RenderMessage in next verison of Yesod" #-}
 generateFormGet :: MonadHandler m
                 => (Html -> MForm m a)
                 -> m (a, Enctype)