From 109c46aa086df8c16d01fe7ee86926918d83086c Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 24 Apr 2002 16:10:21 +0000
Subject: [PATCH] [project @ 2002-04-24 16:10:21 by simonmar] Omit the generic
 declarations when processing with Haddock, since the
 Haddock parser doesn't understand them (yet).

---
 GHC/Base.lhs |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/GHC/Base.lhs b/GHC/Base.lhs
index bafd6c3..7c43dc3 100644
--- a/GHC/Base.lhs
+++ b/GHC/Base.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: Base.lhs,v 1.7 2002/02/27 14:33:09 simonmar Exp $
+% $Id: Base.lhs,v 1.8 2002/04/24 16:10:21 simonmar Exp $
 %
 % (c) The University of Glasgow, 1992-2002
 %
@@ -599,8 +599,10 @@ instance CReturnable () -- Why, exactly?
 
 \begin{code}
 data Unit = Unit
+#ifndef __HADDOCK__
 data (:+:) a b = Inl a | Inr b
 data (:*:) a b = a :*: b
+#endif
 \end{code}
 
 
-- 
1.7.10.4