This commit is contained in:
Jonathan Daugherty 2017-10-29 21:01:48 -07:00
parent 27b1f50523
commit f8a96fc624

View File

@ -248,9 +248,7 @@ serializeCustomAttr cs c =
saveCustomizations :: FilePath -> Theme -> IO ()
saveCustomizations path t = do
let defSection = case serializeCustomAttr ["default"] <$> themeCustomDefaultAttr t of
Nothing -> []
Just ls -> ls
let defSection = fromMaybe [] $ serializeCustomAttr ["default"] <$> themeCustomDefaultAttr t
mapSection = []
content = T.unlines $ defSection <> mapSection
T.writeFile path content