From: simonpj <unknown>
Date: Tue, 18 Feb 2003 15:54:02 +0000 (+0000)
Subject: [project @ 2003-02-18 15:54:02 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1148
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=b749b2c7fd7fb9cdd464c213672ded760f498dc9;p=ghc-hetmet.git

[project @ 2003-02-18 15:54:02 by simonpj]
Cosmetic wibble
---

diff --git a/ghc/compiler/basicTypes/OccName.lhs b/ghc/compiler/basicTypes/OccName.lhs
index 1ac03b6..0faa870 100644
--- a/ghc/compiler/basicTypes/OccName.lhs
+++ b/ghc/compiler/basicTypes/OccName.lhs
@@ -249,7 +249,7 @@ setOccNameSpace sp (OccName _ occ) = OccName sp occ
 
 -- occNameFlavour is used only to generate good error messages
 occNameFlavour :: OccName -> String
-occNameFlavour (OccName DataName _)  = "Real data constructor"
+occNameFlavour (OccName DataName _)  = "Data constructor"
 occNameFlavour (OccName TvName _)    = "Type variable"
 occNameFlavour (OccName TcClsName _) = "Type constructor or class"
 occNameFlavour (OccName VarName s)   = "Variable"