Make DsMeta work right on tuples (cf Trac #5597)
authorSimon Peyton Jones <simonpj@microsoft.com>
Thu, 17 Nov 2011 13:14:14 +0000 (13:14 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Thu, 17 Nov 2011 13:14:14 +0000 (13:14 +0000)
compiler/deSugar/DsMeta.hs

index 2126c98..103f70f 100644 (file)
@@ -676,15 +676,13 @@ repTy (HsPArrTy t)          = do
                                t1   <- repLTy t
                                tcon <- repTy (HsTyVar (tyConName parrTyCon))
                                repTapp tcon t1
-repTy (HsTupleTy HsBoxedTuple tys) = do
-                                        tys1 <- repLTys tys 
-                                        tcon <- repTupleTyCon (length tys)
-                                        repTapps tcon tys1
 repTy (HsTupleTy HsUnboxedTuple tys) = do
                                tys1 <- repLTys tys
                                tcon <- repUnboxedTupleTyCon (length tys)
                                repTapps tcon tys1
-repTy (HsTupleTy _ _) = panic "repTy HsTupleTy"
+repTy (HsTupleTy _ tys)     = do tys1 <- repLTys tys 
+                                 tcon <- repTupleTyCon (length tys)
+                                 repTapps tcon tys1
 repTy (HsOpTy ty1 (_, n) ty2) = repLTy ((nlHsTyVar (unLoc n) `nlHsAppTy` ty1)
                                   `nlHsAppTy` ty2)
 repTy (HsParTy t)          = repLTy t