From 9b45e5d8a258bab7f136d7e945d955d3851ef2cb Mon Sep 17 00:00:00 2001 From: Phil Freeman Date: Thu, 29 May 2014 22:32:01 -0700 Subject: [PATCH] Reverse the order of the arguments to \ --- src/Data/Array.purs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Data/Array.purs b/src/Data/Array.purs index 8d10670c..e840460f 100644 --- a/src/Data/Array.purs +++ b/src/Data/Array.purs @@ -212,9 +212,9 @@ infix 5 \\ (\\) :: forall a. (Eq a) => [a] -> [a] -> [a] (\\) xs ys = go xs ys where - go [] ys = ys - go _ [] = [] - go (x:xs) ys = go xs (delete x ys) + go xs [] = xs + go [] _ = [] + go xs (y:ys) = go (delete y xs) ys intersectBy :: forall a. (a -> a -> Boolean) -> [a] -> [a] -> [a] intersectBy _ [] _ = []