Themes: fix saving of background color in saveTheme (fixes #338)

This commit is contained in:
Jonathan Daugherty 2021-10-22 08:20:09 -07:00
parent f94441abb6
commit 31cc25801b

View File

@ -405,7 +405,7 @@ saveTheme path t = do
attrToCustom :: Attr -> CustomAttr
attrToCustom a =
CustomAttr { customFg = Just $ attrForeColor a
, customBg = Just $ attrForeColor a
, customBg = Just $ attrBackColor a
, customStyle = case attrStyle a of
SetTo s -> Just s
_ -> Nothing