From: Ian Lynagh <igloo@earth.li>
Date: Fri, 27 Mar 2009 23:21:18 +0000 (+0000)
Subject: Add another Data.List.intersect example from Christian Maeder
X-Git-Tag: 2009-06-25~45
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=187273146eee203027cff025985449d3db33a0d5;p=ghc-base.git

Add another Data.List.intersect example from Christian Maeder
---

diff --git a/Data/List.hs b/Data/List.hs
index bd4e14c..ebee0f1 100644
--- a/Data/List.hs
+++ b/Data/List.hs
@@ -399,6 +399,9 @@ unionBy eq xs ys        =  xs ++ foldl (flip (deleteBy eq)) (nubBy eq ys) xs
 -- > [1,2,3,4] `intersect` [2,4,6,8] == [2,4]
 --
 -- If the first list contains duplicates, so will the result.
+--
+-- > [1,2,2,3,4] `intersect` [6,4,4,2] == [2,2,4]
+--
 -- It is a special case of 'intersectBy', which allows the programmer to
 -- supply their own equality test.