ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-11-25 19:22:08 +03:00
Code Issues Projects Releases Wiki Activity

irrefutable pattern

Browse Source
This commit is contained in:
Willem Van Onsem 2021-06-10 23:15:48 +02:00
parent ed04989938
commit 81b6151d51
No known key found for this signature in database
GPG Key ID: 1D22C3A122D794F4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Graphics/Vty/Attributes.hs
View File

@ -154,7 +154,7 @@ instance (NFData v) => NFData (MaybeDefault v) where
instance Eq v => Semigroup (MaybeDefault v) where instance Eq v => Semigroup (MaybeDefault v) where
_ <> v@(SetTo _) = v _ <> v@(SetTo _) = v
x <> KeepCurrent = x x <> KeepCurrent = x
_ <> Default = Default _ <> ~Default = Default
instance Eq v => Monoid ( MaybeDefault v ) where instance Eq v => Monoid ( MaybeDefault v ) where
mempty = KeepCurrent mempty = KeepCurrent