X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FTuple.hs;h=a5ea87570f88f80c4f79925ae8227f09445d6efb;hb=41e8fba828acbae1751628af50849f5352b27873;hp=693b8d73f7ecb78601d80f1a5509a7ad2507d133;hpb=825c5c7be443f287a46c8212473e419f9106b9cf;p=ghc-base.git

diff --git a/Data/Tuple.hs b/Data/Tuple.hs
index 693b8d7..a5ea875 100644
--- a/Data/Tuple.hs
+++ b/Data/Tuple.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+{-# LANGUAGE CPP, NoImplicitPrelude #-}
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
 -- XXX -fno-warn-unused-imports needed for the GHC.Tuple import below. Sigh.
 -----------------------------------------------------------------------------
@@ -44,13 +44,13 @@ module Data.Tuple
 
 import GHC.Base
 -- We need to depend on GHC.Base so that
--- a) so that we get GHC.Bool, GHC.Classes, GHC.Ordering
+-- a) so that we get GHC.Classes, GHC.Ordering, GHC.Types
 
 -- b) so that GHC.Base.inline is available, which is used
 --    when expanding instance declarations
 
 import GHC.Tuple
--- We must import GHC.Tuple, to ensure sure that the 
+-- We must import GHC.Tuple, to ensure sure that the
 -- data constructors of `(,)' are in scope when we do
 -- the standalone deriving instance for Eq (a,b) etc