haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed bootstrap styling

Browse Source
This commit is contained in:
Burtannia 2020-11-13 22:48:56 +00:00
parent a3319f766a
commit 2c1112c52c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod-form-multi/Yesod/Form/MultiInput.hs
View File

@ -76,7 +76,7 @@ bs3Settings = MultiSettings "btn btn-default" "btn btn-danger" "has-error" Nothi
-- --
-- @since 1.6.0 -- @since 1.6.0
bs4Settings :: MultiSettings site 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 where
errW err = errW err =
[whamlet| [whamlet|
@ -100,7 +100,7 @@ bs3FASettings = MultiSettings "btn btn-default" "btn btn-danger" "has-error" add
-- --
-- @since 1.6.0 -- @since 1.6.0
bs4FASettings :: MultiSettings site 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 where
addIcon = Just [shamlet|<i class="fas fa-plus">|] addIcon = Just [shamlet|<i class="fas fa-plus">|]
delIcon = Just [shamlet|<i class="fas fa-trash-alt">|] 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 mkDelBtn fieldId = do
let delBtnId = delBtnPrefix <> fieldId let delBtnId = delBtnPrefix <> fieldId
[whamlet| [whamlet|
<button ##{delBtnId} .#{msDelClass} style="margin-left: 1rem" type="button"> <button ##{delBtnId} .#{msDelClass} style="margin-left: 0.75rem" type="button">
$maybe inner <- msDelInner $maybe inner <- msDelInner
#{inner} #{inner}
$nothing $nothing