From 7b327b3dcd8e3d31bdb440d3a77e2f5dfd32b619 Mon Sep 17 00:00:00 2001 From: Burtannia Date: Sat, 14 Nov 2020 00:45:20 +0000 Subject: [PATCH] Made MultiSettings fields strict --- yesod-form-multi/Yesod/Form/MultiInput.hs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/yesod-form-multi/Yesod/Form/MultiInput.hs b/yesod-form-multi/Yesod/Form/MultiInput.hs index 684c57ca..aa31cfed 100644 --- a/yesod-form-multi/Yesod/Form/MultiInput.hs +++ b/yesod-form-multi/Yesod/Form/MultiInput.hs @@ -50,13 +50,13 @@ instance ToJavascript Text where toJavascript = toJavascript . toJSON -- -- @since 1.6.0 data MultiSettings site = MultiSettings - { msAddClass :: Text -- ^ Class to be applied to the "add another" button. - , msDelClass :: Text -- ^ Class to be applied to the "delete" button. - , msTooltipClass :: Text -- ^ Only used in applicative forms. Class to be applied to the tooltip. - , msWrapperErrClass :: Text -- ^ Class to be applied to the wrapper if it's field has an error. - , msAddInner :: Maybe Html -- ^ Inner Html of add button, defaults to "Add Another". Useful for adding icons inside buttons. - , msDelInner :: Maybe Html -- ^ Inner Html of delete button, defaults to "Delete". Useful for adding icons inside buttons. - , msErrWidget :: Maybe (Html -> WidgetFor site ()) -- ^ Only used in applicative forms. Create a widget for displaying errors. + { msAddClass :: !Text -- ^ Class to be applied to the "add another" button. + , msDelClass :: !Text -- ^ Class to be applied to the "delete" button. + , msTooltipClass :: !Text -- ^ Only used in applicative forms. Class to be applied to the tooltip. + , msWrapperErrClass :: !Text -- ^ Class to be applied to the wrapper if it's field has an error. + , msAddInner :: !(Maybe Html) -- ^ Inner Html of add button, defaults to "Add Another". Useful for adding icons inside buttons. + , msDelInner :: !(Maybe Html) -- ^ Inner Html of delete button, defaults to "Delete". Useful for adding icons inside buttons. + , msErrWidget :: !(Maybe (Html -> WidgetFor site ())) -- ^ Only used in applicative forms. Create a widget for displaying errors. } -- | The general structure of each individually generated field is as follows.