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

Use galignAlign explicitly.

Browse Source
This commit is contained in:
Rob Rix 2016-07-11 14:51:09 -04:00
parent 45c0a582b8
commit ee60b4be7a
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/Data/Align/Generic.hs
View File

@ -17,8 +17,8 @@ class Functor f => GAlign f where
-- Types with 'Data.Align.Align' instances can (and probably should) reuse them.
instance GAlign [] where galign a = Just . align a
instance Eq key => GAlign (OrderedMap key) where galign a = Just . align a
instance GAlign [] where galign = galignAlign
instance Eq key => GAlign (OrderedMap key) where galign = galignAlign
galignAlign :: Align f => f a -> f b -> Maybe (f (These a b))
galignAlign a = Just . align a