From 81b6151d5179d2c02d170d048eef9d5acb7da95c Mon Sep 17 00:00:00 2001 From: Willem Van Onsem Date: Thu, 10 Jun 2021 23:15:48 +0200 Subject: [PATCH] irrefutable pattern --- src/Graphics/Vty/Attributes.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Graphics/Vty/Attributes.hs b/src/Graphics/Vty/Attributes.hs index 3423ffc..81db485 100644 --- a/src/Graphics/Vty/Attributes.hs +++ b/src/Graphics/Vty/Attributes.hs @@ -154,7 +154,7 @@ instance (NFData v) => NFData (MaybeDefault v) where instance Eq v => Semigroup (MaybeDefault v) where _ <> v@(SetTo _) = v x <> KeepCurrent = x - _ <> Default = Default + _ <> ~Default = Default instance Eq v => Monoid ( MaybeDefault v ) where mempty = KeepCurrent