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

Revert "Remove the default implementation for alignWith."

Browse Source 
This reverts commit 3edafd3fb2c75c3664bbd05dc06dbcf601f8748c.
This commit is contained in:
Rob Rix 2016-03-10 13:47:02 -05:00
parent a65798b0dc
commit 998a7f9543
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Data/Align.hs
View File

@ -8,6 +8,7 @@ class Functor f => Align f where
align :: f a -> f b -> f (These a b)
align = alignWith id
alignWith :: (These a b -> c) -> f a -> f b -> f c
alignWith f a b = f <$> align a b
instance Align [] where
nil = []