From: Ian Lynagh <igloo@earth.li>
Date: Mon, 4 Aug 2008 21:16:17 +0000 (+0000)
Subject: Hide standalone deriving clauses from haddock
X-Git-Tag: 6_10_branch_has_been_forked~84
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e0d697e559faf32d4b9f034c0968c1a299dd74c5;hp=01d03713a9bcec90ae118968c3e57053ee9c2720;p=ghc-base.git

Hide standalone deriving clauses from haddock
---

diff --git a/Data/Tuple.hs b/Data/Tuple.hs
index 4002c73..1a15887 100644
--- a/Data/Tuple.hs
+++ b/Data/Tuple.hs
@@ -87,6 +87,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 +152,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__ */
 
 -- ---------------------------------------------------------------------------