X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2FdeSugar%2FDsExpr.lhs;fp=ghc%2Fcompiler%2FdeSugar%2FDsExpr.lhs;h=164316cf99d07c8a85885dca8873cb4d2ee1a8ad;hb=04feba252e40d16101b92948cd1e13c7bc1f3062;hp=df7156a317fe74f5bbb5966f62624a3fcf296792;hpb=fe108ff1b0d4b52679ba6deddadf5d2fb3fa8f22;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsExpr.lhs b/ghc/compiler/deSugar/DsExpr.lhs
index df7156a..164316c 100644
--- a/ghc/compiler/deSugar/DsExpr.lhs
+++ b/ghc/compiler/deSugar/DsExpr.lhs
@@ -26,7 +26,7 @@ import DsMeta		( dsBracket )
 #endif
 
 import HsSyn
-import TcHsSyn		( hsPatType )
+import TcHsSyn		( hsPatType, mkVanillaTuplePat )
 
 -- NB: The desugarer, which straddles the source and Core worlds, sometimes
 --     needs to see source types (newtypes etc), and sometimes not
@@ -736,7 +736,7 @@ dsMDo tbl stmts body result_ty
 
  	mk_tup_pat :: [LPat Id] -> LPat Id
   	mk_tup_pat [p] = p
-	mk_tup_pat ps  = noLoc $ TuplePat ps Boxed
+	mk_tup_pat ps  = noLoc $ mkVanillaTuplePat ps Boxed
 
 	mk_ret_tup :: [LHsExpr Id] -> LHsExpr Id
 	mk_ret_tup [r] = r