X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsUtils.lhs;h=15e08a8eb924ea44d6882a73803b590355f0a099;hb=1c62b517711ac232a8024d91fd4b317a6804d28e;hp=7344cd7e4c61aecca301814bad16d4b36196ac49;hpb=8d0e6c63640414fda69fe77c126f10128a90a5f3;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsUtils.lhs b/ghc/compiler/deSugar/DsUtils.lhs
index 7344cd7..15e08a8 100644
--- a/ghc/compiler/deSugar/DsUtils.lhs
+++ b/ghc/compiler/deSugar/DsUtils.lhs
@@ -483,7 +483,7 @@ mkSelectorBinds pat val_expr
   | otherwise
   = mkErrorAppDs iRREFUT_PAT_ERROR_ID tuple_ty (showSDoc (ppr pat))
     `thenDs` \ error_expr ->
-    matchSimply val_expr LetMatch pat local_tuple error_expr
+    matchSimply val_expr PatBindRhs pat local_tuple error_expr
     `thenDs` \ tuple_expr ->
     newSysLocalDs tuple_ty
     `thenDs` \ tuple_var ->
@@ -501,7 +501,7 @@ mkSelectorBinds pat val_expr
     -- (mk_bind sv bv) generates
     --		bv = case sv of { pat -> bv; other -> error-msg }
     -- Remember, pat binds bv
-      = matchSimply (Var scrut_var) LetMatch pat
+      = matchSimply (Var scrut_var) PatBindRhs pat
 		    (Var bndr_var) error_expr			`thenDs` \ rhs_expr ->
         returnDs (bndr_var, rhs_expr)
       where