Removed dependency on Semigroup

2020-11-17 22:12:59 +00:00 · 2020-11-17 22:12:59 +00:00 · 0f51f91334
commit 0f51f91334
parent 5c56320c39
1 changed files with 1 additions and 1 deletions
--- a/yesod-form-multi/Yesod/Form/MultiInput.hs
+++ b/yesod-form-multi/Yesod/Form/MultiInput.hs
@ -315,7 +315,7 @@ mhelperMulti field@Field {..} fs@FieldSettings {..} wrapperClass defs minVals Mu
            |]

        mkDelBtn fieldId = do
-            let delBtnId = delBtnPrefix <> fieldId
+            let delBtnId = delBtnPrefix `T.append` fieldId
            [whamlet|
                <button ##{delBtnId} .#{msDelClass} style="margin-left: 0.75rem" type="button">
                    $maybe inner <- msDelInner