X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypes%2FTyCon.lhs;h=3bec98d0ac3f7f1b4c9a78d7b70b625506268c1b;hb=c7d4fddb34984d2216de08beaaf8568bd1ea9d48;hp=7d42e1a6e661660bb785d3769495fa45e9317e42;hpb=44ac4f51304d0693ecd03e724bf9d9d671a40612;p=ghc-hetmet.git

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