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