haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Adapt generateFormGet to follow the post variant (deprecate non-prime)

Browse Source 
To stay backward compatible, we fix this in generateFormGet'

From discussion:
https://groups.google.com/forum/#!topic/yesodweb/lWKFzJDOnnY
This commit is contained in:
Axel Angel 2014-06-12 17:10:04 +02:00
parent 1f704e914d
commit bfe0b2867a
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
yesod-form/Yesod/Form/Functions.hs
View File

@ -23,6 +23,7 @@ module Yesod.Form.Functions
, runFormGet , runFormGet
-- * Generate a blank form -- * Generate a blank form
, generateFormPost , generateFormPost
, generateFormGet'
, generateFormGet , generateFormGet
-- * More than one form on a handler -- * More than one form on a handler
, identifyForm , identifyForm
@ -269,6 +270,14 @@ runFormGet form = do
Just _ -> Just (Map.unionsWith (++) $ map (\(x, y) -> Map.singleton x [y]) gets, Map.empty) Just _ -> Just (Map.unionsWith (++) $ map (\(x, y) -> Map.singleton x [y]) gets, Map.empty)
getHelper form env 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 generateFormGet :: MonadHandler m
=> (Html -> MForm m a) => (Html -> MForm m a)
-> m (a, Enctype) -> m (a, Enctype)