X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fvectorise%2FVectUtils.hs;fp=compiler%2Fvectorise%2FVectUtils.hs;h=8121c0627e662e4db1317d2c22bbfcf109293cfb;hp=30ce9ace50bed31d04e6ca4af4a3ca02215c79ef;hb=39a924f10cb4fed95d8fc0caf209876a693ab1f9;hpb=3736e30f683990ee94055b60905cce208a467e8b

diff --git a/compiler/vectorise/VectUtils.hs b/compiler/vectorise/VectUtils.hs
index 30ce9ac..8121c06 100644
--- a/compiler/vectorise/VectUtils.hs
+++ b/compiler/vectorise/VectUtils.hs
@@ -215,8 +215,6 @@ paDFunApply dfun tys
       dicts <- mapM paDictOfType tys
       return $ mkApps (mkTyApps dfun tys) dicts
 
-type PAMethod = (Builtins -> Var, String)
-
 paMethod :: (Builtins -> Var) -> String -> Type -> VM CoreExpr
 paMethod _ name ty
   | Just tycon <- splitPrimTyCon ty
@@ -445,11 +443,11 @@ buildEnv vs
                        `mkTyApps` lenv_tyargs
                        `mkApps`   map Var lvs
 
-          vbind env body = mkWildCase venv ty (exprType body)
-                             [(DataAlt venv_con, vvs, body)]
+          vbind env body = mkWildCase env ty (exprType body)
+                           [(DataAlt venv_con, vvs, body)]
 
           lbind env body =
-            let scrut = unwrapFamInstScrut lenv_tc lenv_tyargs lenv
+            let scrut = unwrapFamInstScrut lenv_tc lenv_tyargs env
             in
             mkWildCase scrut (exprType scrut) (exprType body)
               [(DataAlt lenv_con, lvs, body)]