diff --git a/yesod-form/Yesod/Form/Functions.hs b/yesod-form/Yesod/Form/Functions.hs index 7b00b7ae..3d7a7f95 100644 --- a/yesod-form/Yesod/Form/Functions.hs +++ b/yesod-form/Yesod/Form/Functions.hs @@ -346,8 +346,8 @@ customErrorMessage msg field = field { fieldParse = \ts -> fmap (either (const $ Left msg) Right) $ fieldParse field ts } -- | Generate a 'FieldSettings' from the given label. -fieldSettingsLabel :: SomeMessage master -> FieldSettings master -fieldSettingsLabel msg = FieldSettings msg Nothing Nothing Nothing [] +fieldSettingsLabel :: RenderMessage master msg => msg -> FieldSettings master +fieldSettingsLabel msg = FieldSettings (SomeMessage msg) Nothing Nothing Nothing [] -- | Generate an 'AForm' that gets its value from the given action. aformM :: GHandler sub master a -> AForm sub master a diff --git a/yesod-form/yesod-form.cabal b/yesod-form/yesod-form.cabal index 40ba39a7..98ce4180 100644 --- a/yesod-form/yesod-form.cabal +++ b/yesod-form/yesod-form.cabal @@ -1,5 +1,5 @@ name: yesod-form -version: 1.0.0.1 +version: 1.0.0.2 license: MIT license-file: LICENSE author: Michael Snoyman