X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FstgSyn%2FStgSyn.lhs;h=527848f41bfd19eeb7728bf282cc3699f0c74f4c;hb=f3ebc8951ad495a5a027f1f482b45648dfe11c58;hp=a184d5e6c06d3b3c68d0f622f9c2bd507d0b7e20;hpb=d5934bbb856aa0aa620c9b2e0fa51c90a1a5a048;p=ghc-hetmet.git

diff --git a/compiler/stgSyn/StgSyn.lhs b/compiler/stgSyn/StgSyn.lhs
index a184d5e..527848f 100644
--- a/compiler/stgSyn/StgSyn.lhs
+++ b/compiler/stgSyn/StgSyn.lhs
@@ -168,13 +168,16 @@ constructors, primitives, and literals.
 \begin{code}
   | StgLit	Literal
   
+	-- StgConApp is vital for returning unboxed tuples
+	-- which can't be let-bound first
   | StgConApp	DataCon
 		[GenStgArg occ]	-- Saturated
 
   | StgOpApp	StgOp		-- Primitive op or foreign call
 		[GenStgArg occ]	-- Saturated
-		Type		-- Result type; we need to know the result type
-				-- so that we can assign result registers.
+		Type		-- Result type
+				-- We need to know this so that we can 
+				-- assign result registers
 \end{code}
 
 %************************************************************************