From: simonmar <unknown>
Date: Wed, 24 Apr 2002 16:10:21 +0000 (+0000)
Subject: [project @ 2002-04-24 16:10:21 by simonmar]
X-Git-Tag: nhc98-1-18-release~1054
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=109c46aa086df8c16d01fe7ee86926918d83086c;p=haskell-directory.git

[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).
---

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}