X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FbasicTypes%2FDataCon.lhs;fp=compiler%2FbasicTypes%2FDataCon.lhs;h=6c4d583c10a724d4e7dade65910fad6967333c0f;hp=f367ada0f686e08f68581cdd16fac34f70e7c234;hb=28e44e226b7b93f823857dc6514f296a3c5ee91d;hpb=34f6af3564a597c8b502256ae07f2d0c2c5f962a

diff --git a/compiler/basicTypes/DataCon.lhs b/compiler/basicTypes/DataCon.lhs
index f367ada..6c4d583 100644
--- a/compiler/basicTypes/DataCon.lhs
+++ b/compiler/basicTypes/DataCon.lhs
@@ -342,8 +342,8 @@ data DataCon
 					-- after unboxing and flattening,
 					-- and *including* existential dictionaries
 
-	dcRepStrictness :: [StrictnessMark],	-- One for each *representation* 
-						-- *value* argument
+	dcRepStrictness :: [StrictnessMark],
+        -- One for each *representation* *value* argument
 		-- See also Note [Data-con worker strictness] in MkId.lhs
 
 	-- Result type of constructor is T t1..tn