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

No need for this instance

Browse Source
This commit is contained in:
Timothy Clem 2017-09-19 08:53:01 -07:00
parent 82ce940292
commit 2d17064681
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

@ -32,9 +32,6 @@ instance GAlign Identity where
instance Apply GAlign fs => GAlign (Union fs) where
galignWith f = (join .) . apply2' (Proxy :: Proxy GAlign) (\ inj -> (fmap inj .) . galignWith f)
instance GAlign (Union '[]) where
galignWith _ _ _ = Nothing
instance GAlign NonEmpty where
galignWith f (a:|as) (b:|bs) = Just (f (These a b) :| alignWith f as bs)