X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsExpr.lhs;h=ce5a9d8e7b2b7380754fd9fc84d681b05d4fa69e;hb=ccb7eee15163ec2def882a6549d2be64b3065abd;hp=75d46a1748367f213b596ac1e87a146e7ef58b8c;hpb=e3a4d6c36802d9395b40af1d9fb24cbd7ce2f720;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsExpr.lhs b/ghc/compiler/deSugar/DsExpr.lhs
index 75d46a1..ce5a9d8 100644
--- a/ghc/compiler/deSugar/DsExpr.lhs
+++ b/ghc/compiler/deSugar/DsExpr.lhs
@@ -484,7 +484,7 @@ dsExpr expr@(RecordUpd record_expr rbinds record_in_ty record_out_ty)
 
 	mk_alt con
 	  = newSysLocalsDs (dataConInstOrigArgTys con in_inst_tys) `thenDs` \ arg_ids ->
-		-- This call to dataConArgTys won't work for existentials
+		-- This call to dataConInstOrigArgTys won't work for existentials
 		-- but existentials don't have record types anyway
 	    let 
 		val_args = zipWithEqual "dsExpr:RecordUpd" mk_val_arg