Remove ThemeStyles Semigroup/Monoid instance (not law abiding)

This commit is contained in:
Francisco Vallarino 2020-10-26 01:16:25 -03:00
parent b56566fc04
commit 27780be89f
2 changed files with 1 additions and 7 deletions

View File

@ -1,6 +1,5 @@
module Monomer.Core.ThemeTypes where
import Control.Applicative ((<|>))
import Data.Default
import Monomer.Core.BasicTypes
@ -71,9 +70,3 @@ instance Default ThemeState where
_thsDialogBodyStyle = def,
_thsDialogButtonsStyle = def
}
instance Semigroup ThemeState where
(<>) ts1 ts2 = ts2
instance Monoid ThemeState where
mempty = def

View File

@ -256,6 +256,7 @@
- Add user documentation
Maybe postponed after release?
- Move combinators out of exported Core (but still export from Monomer)
- Handle window title, maximize, etc
- Also handle as requests?
- Check scroll styling works correctly (contentRect being applied, etc)