Remove ST stuff that is now in the new st package

[ghc-base.git] / Data / Tuple.hs

diff --git a/Data/Tuple.hs b/Data/Tuple.hs
index 4002c73..335835c 100644 (file)
--- a/Data/Tuple.hs
+++ b/Data/Tuple.hs
@@ -1,4 +1,7 @@
 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-orphans #-}
+-- XXX -fno-warn-unused-imports needed for the GHC.Tuple import below. Sigh.
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Data.Tuple
@@ -38,7 +41,9 @@ module Data.Tuple
     where
 
 #ifdef __GLASGOW_HASKELL__
-import GHC.Base
+import GHC.Bool
+import GHC.Classes
+import GHC.Ordering
 -- XXX The standalone deriving clauses fail with
 --     The data constructors of `(,)' are not all in scope
 --       so you cannot derive an instance for it
@@ -87,6 +92,7 @@ instance Ord () where
     min () () = ()
     compare () () = EQ
 
+#ifndef __HADDOCK__
 deriving instance (Eq  a, Eq  b) => Eq  (a, b)
 deriving instance (Ord a, Ord b) => Ord (a, b)
 deriving instance (Eq  a, Eq  b, Eq  c) => Eq  (a, b, c)
@@ -151,6 +157,7 @@ deriving instance (Eq a, Eq b, Eq c, Eq d, Eq e, Eq f, Eq g,
 deriving instance (Ord a, Ord b, Ord c, Ord d, Ord e, Ord f, Ord g,
                    Ord h, Ord i, Ord j, Ord k, Ord l, Ord m, Ord n, Ord o)
                => Ord (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o)
+#endif  /* !__HADDOCK__ */
 #endif  /* __GLASGOW_HASKELL__ */
 
 -- ---------------------------------------------------------------------------