Make gmappend/gmempty definitions more compact.

dcoutts · Mar 1, 2016 · 3113eb8 · 3113eb8
1 parent 70d4223
commit 3113eb8
Showing 1 changed file with 0 additions and 9 deletions.
diff --git a/Cabal/Distribution/Compat/Semigroup.hs b/Cabal/Distribution/Compat/Semigroup.hs
@@ -137,12 +137,6 @@ gmappend x y = to (gmappend' (from x) (from y))
 class GSemigroup f where
     gmappend' :: f p -> f p -> f p
 
-instance GSemigroup U1 where
-    gmappend' _ _ = U1
-
-instance GSemigroup V1 where
-    gmappend' x y = x `seq` y `seq` error "GSemigroup.V1: gmappend'"
-
 instance Semigroup a => GSemigroup (K1 i a) where
     gmappend' (K1 x) (K1 y) = K1 (x <> y)
 
@@ -167,9 +161,6 @@ gmempty = to gmempty'
 class GSemigroup f => GMonoid f where
     gmempty' :: f p
 
-instance GMonoid U1 where
-    gmempty' = U1
-
 instance (Semigroup a, Monoid a) => GMonoid (K1 i a) where
     gmempty' = K1 mempty