Skip to content

Commit fc75a33

Browse files
committed
Merge pull request #10 from purescript/fix-without
Reverse the order of the arguments to \\
2 parents 74003bc + 9b45e5d commit fc75a33

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

src/Data/Array.purs

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -212,9 +212,9 @@ infix 5 \\
212212
(\\) :: forall a. (Eq a) => [a] -> [a] -> [a]
213213
(\\) xs ys = go xs ys
214214
where
215-
go [] ys = ys
216-
go _ [] = []
217-
go (x:xs) ys = go xs (delete x ys)
215+
go xs [] = xs
216+
go [] _ = []
217+
go xs (y:ys) = go (delete y xs) ys
218218

219219
intersectBy :: forall a. (a -> a -> Boolean) -> [a] -> [a] -> [a]
220220
intersectBy _ [] _ = []

0 commit comments

Comments
 (0)