From: simonmar <unknown>
Date: Tue, 12 Feb 2002 09:39:19 +0000 (+0000)
Subject: [project @ 2002-02-12 09:39:19 by simonmar]
X-Git-Tag: nhc98-1-18-release~1136
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9f6b94823511e80b84d052ee571d8c839fc98e0c;p=ghc-base.git

[project @ 2002-02-12 09:39:19 by simonmar]
Merge rev. 1.61 of ghc/lib/std/PrelBase.lhs
---

diff --git a/GHC/Base.lhs b/GHC/Base.lhs
index b4961ae..d5fcfcd 100644
--- a/GHC/Base.lhs
+++ b/GHC/Base.lhs
@@ -1,7 +1,7 @@
 % -----------------------------------------------------------------------------
-% $Id: Base.lhs,v 1.5 2002/02/05 17:32:26 simonmar Exp $
+% $Id: Base.lhs,v 1.6 2002/02/12 09:39:19 simonmar Exp $
 %
-% (c) The University of Glasgow, 1992-2000
+% (c) The University of Glasgow, 1992-2002
 %
 \section[GHC.Base]{Module @GHC.Base@}
 
@@ -599,8 +599,8 @@ instance CReturnable () -- Why, exactly?
 
 \begin{code}
 data Unit = Unit
-data a :+: b = Inl a | Inr b
-data a :*: b = a :*: b
+data (:+:) a b = Inl a | Inr b
+data (:*:) a b = a :*: b
 \end{code}