From: simonpj <unknown>
Date: Tue, 26 Jul 2005 08:16:24 +0000 (+0000)
Subject: [project @ 2005-07-26 08:16:24 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~314
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c7d4fddb34984d2216de08beaaf8568bd1ea9d48;p=ghc-hetmet.git

[project @ 2005-07-26 08:16:24 by simonpj]
Comments
---

diff --git a/ghc/compiler/types/TyCon.lhs b/ghc/compiler/types/TyCon.lhs
index 7d42e1a..3bec98d 100644
--- a/ghc/compiler/types/TyCon.lhs
+++ b/ghc/compiler/types/TyCon.lhs
@@ -178,6 +178,7 @@ data AlgTyConRhs
 			-- INVARIANT: Kept in order of increasing tag
 			--	      (see the tag assignment in DataCon.mkDataCon)
 	Bool		-- Cached: True <=> an enumeration type
+			--	   Includes data types with no constructors.
 
   | NewTyCon 		-- Newtypes always have exactly one constructor
 	DataCon		-- The unique constructor; it has no existentials