From 973461e70f74bd3600ad983af241b413290f8ca1 Mon Sep 17 00:00:00 2001 From: James Burton Date: Sun, 15 Nov 2020 22:19:37 +0000 Subject: [PATCH] Minor refactoring --- yesod-form-multi/Yesod/Form/MultiInput.hs | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/yesod-form-multi/Yesod/Form/MultiInput.hs b/yesod-form-multi/Yesod/Form/MultiInput.hs index 1afde113..7dcc9e67 100644 --- a/yesod-form-multi/Yesod/Form/MultiInput.hs +++ b/yesod-form-multi/Yesod/Form/MultiInput.hs @@ -292,7 +292,7 @@ mhelperMulti field@Field {..} fs@FieldSettings {..} wrapperClass defs minVals Mu } |] - mkDelBtn fieldId wrapperClass = do + mkDelBtn fieldId = do let delBtnId = delBtnPrefix <> fieldId [whamlet|