From 2c5810324ae2227816c428781ab34f34d9a3fbb2 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 11 Jul 2016 14:46:57 -0400 Subject: [PATCH] :fire: the (bogus) pair implementation. --- src/Data/Align/Generic.hs | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/Data/Align/Generic.hs b/src/Data/Align/Generic.hs index d4538a7ba..22d429fc1 100644 --- a/src/Data/Align/Generic.hs +++ b/src/Data/Align/Generic.hs @@ -42,9 +42,6 @@ instance (GAlign f, GAlign g) => GAlign (f :*: g) where instance (Traversable f, Applicative f, GAlign g) => GAlign (f :.: g) where galign (Comp1 a) (Comp1 b) = Comp1 <$> sequenceA (galign <$> a <*> b) -instance GAlign ((,) a) where - galign (_, a) (k, b) = Just (k, These a b) - instance GAlign [] where galign a = Just . align a instance Eq key => GAlign (OrderedMap key) where galign a = Just . align a instance GAlign (Syntax a)