X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FList.hs;h=aca5cac5362bb983773aacadc50ff6dc2f9af22f;hb=0c5bf34eb6edcc423ba2e1f4e2eb27c059a1f8ef;hp=af6b3f53480d81097a30ef61208755f5560a9158;hpb=b0e2f9ce6acf3b081c7b05e298978117d719709f;p=ghc-base.git

diff --git a/Data/List.hs b/Data/List.hs
index af6b3f5..aca5cac 100644
--- a/Data/List.hs
+++ b/Data/List.hs
@@ -342,7 +342,7 @@ nubBy eq l              = nubBy' l []
 -- 'y' is the potential new element
 elem_by :: (a -> a -> Bool) -> a -> [a] -> Bool
 elem_by _  _ []         =  False
-elem_by eq y (x:xs)     =  x `eq` y || elem_by eq y xs
+elem_by eq y (x:xs)     =  y `eq` x || elem_by eq y xs
 #endif