From 998a7f9543fb853808d33cc26340401768d6f063 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 10 Mar 2016 13:47:02 -0500 Subject: [PATCH] Revert "Remove the default implementation for alignWith." This reverts commit 3edafd3fb2c75c3664bbd05dc06dbcf601f8748c. --- src/Data/Align.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Data/Align.hs b/src/Data/Align.hs index 189929c11..1f7659163 100644 --- a/src/Data/Align.hs +++ b/src/Data/Align.hs @@ -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 = []