github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-19 12:51:52 +03:00
Code Issues Projects Releases Wiki Activity

🔥 the (bogus) pair implementation.

Browse Source
This commit is contained in:
Rob Rix 2016-07-11 14:46:57 -04:00
parent b1b9806e61
commit 2c5810324a
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Data/Align/Generic.hs
View File

@ -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)