mirror of
https://github.com/github/semantic.git
synced 2024-12-24 15:35:14 +03:00
Remove the default implementation for alignWith.
This commit is contained in:
parent
3613edf521
commit
f7abf91678
@ -7,7 +7,6 @@ class Functor f => Align f where
|
|||||||
align :: f a -> f b -> f (These a b)
|
align :: f a -> f b -> f (These a b)
|
||||||
align = alignWith id
|
align = alignWith id
|
||||||
alignWith :: (These a b -> c) -> f a -> f b -> f c
|
alignWith :: (These a b -> c) -> f a -> f b -> f c
|
||||||
alignWith f a b = f <$> align a b
|
|
||||||
|
|
||||||
instance Align [] where
|
instance Align [] where
|
||||||
nil = []
|
nil = []
|
||||||
|
Loading…
Reference in New Issue
Block a user