X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FbasicTypes%2FMkId.lhs;h=2373d726fe72a9143c4a22f46a55ee7d36b9c221;hp=1485f48bf3a817ab558a67630fc2d5eb27852f3f;hb=a6cbfa877c81ef3563d267a35faeb9633ef3000a;hpb=a4c34367ce3e836f52f0ffb1e379ce81b8d65316

diff --git a/compiler/basicTypes/MkId.lhs b/compiler/basicTypes/MkId.lhs
index 1485f48..2373d72 100644
--- a/compiler/basicTypes/MkId.lhs
+++ b/compiler/basicTypes/MkId.lhs
@@ -587,6 +587,9 @@ unboxProduct i arg arg_ty body res_ty
     rhs = body i'' con_args
 
 mkUnpackCase ::  Id -> CoreExpr -> [Id] -> DataCon -> CoreExpr -> CoreExpr
+-- (mkUnpackCase x e args Con body)
+--	returns
+-- case (e `cast` ...) of bndr { Con args -> body }
 mkUnpackCase bndr arg unpk_args boxing_con body
   = Case cast_arg bndr (exprType body) [(DataAlt boxing_con, unpk_args, body)]
   where