From 2c1112c52c77e10c487d3f9c90a1cd2a0f596c7b Mon Sep 17 00:00:00 2001
From: Burtannia <jamesejburton@gmail.com>
Date: Fri, 13 Nov 2020 22:48:56 +0000
Subject: [PATCH] Fixed bootstrap styling

---
 yesod-form-multi/Yesod/Form/MultiInput.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/yesod-form-multi/Yesod/Form/MultiInput.hs b/yesod-form-multi/Yesod/Form/MultiInput.hs
index 20b3ac87..f2b9b5ba 100644
--- a/yesod-form-multi/Yesod/Form/MultiInput.hs
+++ b/yesod-form-multi/Yesod/Form/MultiInput.hs
@@ -76,7 +76,7 @@ bs3Settings = MultiSettings "btn btn-default" "btn btn-danger" "has-error" Nothi
 --
 -- @since 1.6.0
 bs4Settings :: MultiSettings site
-bs4Settings = MultiSettings "btn btn-basic" "btn btn-danger" "has-error" Nothing Nothing (Just errW)
+bs4Settings = MultiSettings "btn btn-secondary" "btn btn-danger" "has-error" Nothing Nothing (Just errW)
     where
         errW err =
             [whamlet|
@@ -100,7 +100,7 @@ bs3FASettings = MultiSettings "btn btn-default" "btn btn-danger" "has-error" add
 --
 -- @since 1.6.0
 bs4FASettings :: MultiSettings site
-bs4FASettings = MultiSettings "btn btn-basic" "btn btn-danger" "has-error" addIcon delIcon (Just errW)
+bs4FASettings = MultiSettings "btn btn-secondary" "btn btn-danger" "has-error" addIcon delIcon (Just errW)
     where
         addIcon = Just [shamlet|<i class="fas fa-plus">|]
         delIcon = Just [shamlet|<i class="fas fa-trash-alt">|]
@@ -236,7 +236,7 @@ mhelperMulti field@Field {..} fs@FieldSettings {..} wrapperClass defs minVals Mu
         mkDelBtn fieldId = do
             let delBtnId = delBtnPrefix <> fieldId
             [whamlet|
-                <button ##{delBtnId} .#{msDelClass} style="margin-left: 1rem" type="button">
+                <button ##{delBtnId} .#{msDelClass} style="margin-left: 0.75rem" type="button">
                     $maybe inner <- msDelInner
                         #{inner}
                     $nothing