on master help sign in
Remove defunct Eq contraints on Semigroup and Monoid instances for MaybeDefault
commitabf7fc4cd7d7a2fd69510743c62bff99e42a2541 authorJonathan Daugherty <cygnus@foobox.com> dateMon 28 Jun 2021, 05:27 (5 years ago) parentfe501cc
1 file changed+2−2
src/Graphics/Vty/Attributes.hs+2−2
src/Graphics/Vty/Attributes.hs+2−2
@@ -151,12 +151,12 @@ instance (NFData v) => NFData (MaybeDefault v) where
151151 rnf KeepCurrent = ()
152152 rnf (SetTo v) = rnf v
153153
154−instance Eq v => Semigroup (MaybeDefault v) where
154+instance Semigroup (MaybeDefault v) where
155155 _ <> v@(SetTo _) = v
156156 x <> KeepCurrent = x
157157 _ <> Default = Default
158158
159−instance Eq v => Monoid ( MaybeDefault v ) where
159+instance Monoid ( MaybeDefault v ) where
160160 mempty = KeepCurrent
161161#if !(MIN_VERSION_base(4,11,0))
162162 mappend = (<>)