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

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