X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FDataCon.lhs;fp=ghc%2Fcompiler%2FbasicTypes%2FDataCon.lhs;h=0f7d74bbc68818688a5128fb0d4271ff44e16777;hp=2e9f09c0b588d2ac1d392294f79a1b6c2702e658;hb=853e20a3eb86137cdb8accf69c6caa9db83a3d34;hpb=ca739e852566d7e0bfd594e6d7bf08da04f78d3c

diff --git a/ghc/compiler/basicTypes/DataCon.lhs b/ghc/compiler/basicTypes/DataCon.lhs
index 2e9f09c..0f7d74b 100644
--- a/ghc/compiler/basicTypes/DataCon.lhs
+++ b/ghc/compiler/basicTypes/DataCon.lhs
@@ -279,7 +279,7 @@ data DataConIds
 				-- may or may not have a wrapper, depending on whether
 				-- the wrapper does anything.
 
-	-- *Neither* the worker *nor* the wrapper take the dcStupidTheta dicts as arguments
+	-- _Neither_ the worker _nor_ the wrapper take the dcStupidTheta dicts as arguments
 
 	-- The wrapper takes dcOrigArgTys as its arguments
 	-- The worker takes dcRepArgTys as its arguments