X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FstgSyn%2FStgSyn.lhs;fp=compiler%2FstgSyn%2FStgSyn.lhs;h=527848f41bfd19eeb7728bf282cc3699f0c74f4c;hp=274908132a2cf535ffcef97ff6b5f436f70c5616;hb=0b34654125ca8551a1ce82919236d67a862b59bd;hpb=fb6249251d425b076c47013e5cf5c849cac31b46

diff --git a/compiler/stgSyn/StgSyn.lhs b/compiler/stgSyn/StgSyn.lhs
index 2749081..527848f 100644
--- a/compiler/stgSyn/StgSyn.lhs
+++ b/compiler/stgSyn/StgSyn.lhs
@@ -168,6 +168,8 @@ 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