From e0d697e559faf32d4b9f034c0968c1a299dd74c5 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Mon, 4 Aug 2008 21:16:17 +0000 Subject: [PATCH] Hide standalone deriving clauses from haddock --- Data/Tuple.hs | 2 ++ 1 file changed, 2 insertions(+) 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__ */ -- --------------------------------------------------------------------------- -- 1.7.10.4