From 3541a11faa9cc6b8ca7063b7e6421cb0385997fa Mon Sep 17 00:00:00 2001 From: Daniel Fischer Date: Thu, 30 Sep 2010 19:17:31 +0000 Subject: [PATCH] Make intersectBy lazier Add shortcuts to intersectBy for empty list arguments. In addition to being faster in that case, more inputs yield defined results. Treats ticket #4323 --- Data/List.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Data/List.hs b/Data/List.hs index cc166d8..c954757 100644 --- a/Data/List.hs +++ b/Data/List.hs @@ -410,6 +410,8 @@ intersect = intersectBy (==) -- | The 'intersectBy' function is the non-overloaded version of 'intersect'. intersectBy :: (a -> a -> Bool) -> [a] -> [a] -> [a] +intersectBy _ [] _ = [] +intersectBy _ _ [] = [] intersectBy eq xs ys = [x | x <- xs, any (eq x) ys] -- | The 'intersperse' function takes an element and a list and -- 1.7.10.4