github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 14:21:31 +03:00
Code Issues Projects Releases Wiki Activity

Use the Data.Align instances for generic alignment of lists and ordered maps.

Browse Source
This commit is contained in:
Rob Rix 2016-07-11 13:54:04 -04:00
parent f1f542cc2c
commit 119c2350d4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Term.hs
View File

@ -90,6 +90,6 @@ instance (Traversable f, Applicative f, GAlign g) => GAlign (f :.: g) where
instance GAlign ((,) a) where instance GAlign ((,) a) where
galign (_, a) (k, b) = Just (k, These a b) galign (_, a) (k, b) = Just (k, These a b)
instance GAlign [] instance GAlign [] where galign a = Just . align a
instance GAlign (OrderedMap key) instance Eq key => GAlign (OrderedMap key) where galign a = Just . align a
instance GAlign (Syntax a) instance GAlign (Syntax a)