X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fghc%2FPrelList.lhs;fp=ghc%2Flib%2Fghc%2FPrelList.lhs;h=e249135b2f07e9bed72ceebad4fe52a9935c524a;hb=8f7ac3fe40d3d55743b824deab655d0797a1c55f;hp=88af06688aeb48cd3a2afffb307213a11aaed17a;hpb=b437dc065099e891083dde8549e06d824461e2d2;p=ghc-hetmet.git

diff --git a/ghc/lib/ghc/PrelList.lhs b/ghc/lib/ghc/PrelList.lhs
index 88af066..e249135 100644
--- a/ghc/lib/ghc/PrelList.lhs
+++ b/ghc/lib/ghc/PrelList.lhs
@@ -7,6 +7,8 @@
 The List data type and its operations
 
 \begin{code}
+{-# OPTIONS -fno-implicit-prelude #-}
+
 module PrelList (
    [] (..),
 
@@ -20,8 +22,7 @@ module PrelList (
    zip, zip3, zipWith, zipWith3, unzip, unzip3
  ) where
 
-import Prelude	()
-import IOBase	( error )	{-# SOURCE #-}
+import {#- SOURCE #-}	IOBase	( error )
 import PrelTup
 import PrelBase
 
@@ -189,7 +190,7 @@ all p                   =  and . map p
 -- e.g., x `elem` xs.  notElem is the negation.
 elem, notElem           :: (Eq a) => a -> [a] -> Bool
 elem x                  =  any (== x)
-notElem x               =  all (not . (/= x))
+notElem x               =  all (/= x)
 
 -- lookup key assocs looks up a key in an association list.
 lookup                  :: (Eq a) => a -> [(a,b)] -> Maybe b