X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FbasicTypes%2FMkId.lhs;h=46099590c67cdcf73aab965b456c0f98b96e9be8;hb=247fd64109002ed88c27bc5d6cfea6a71ee48cfa;hp=fe05a9ba4ac8dca710d721b1fb9582f10ddbf9c6;hpb=67ee8a93fc96a38c3f73468cb86d8421a11d2911;p=ghc-hetmet.git

diff --git a/compiler/basicTypes/MkId.lhs b/compiler/basicTypes/MkId.lhs
index fe05a9b..4609959 100644
--- a/compiler/basicTypes/MkId.lhs
+++ b/compiler/basicTypes/MkId.lhs
@@ -555,6 +555,7 @@ mkRecordSelId tycon field_label
 		-- the context stuff; hence the arg_prefix binding below
 	  mkReboxingAlt uniqs data_con (arg_prefix ++ arg_ids) rhs
       where
+	-- TODO: this is *not* right; Orig vs Rep tys
 	(arg_prefix, arg_ids)
 	   | isVanillaDataCon data_con	 	-- Instantiate from commmon base
 	   = ([], mkTemplateLocalsNum arg_base (dataConInstOrigArgTys data_con res_tys))