From: keller@cse.unsw.edu.au <unknown>
Date: Wed, 2 Feb 2011 05:14:08 +0000 (+0000)
Subject: (no commit message)
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=21703cf93de9e93f6b278b4d46f8511a813cbeda

---

diff --git a/compiler/vectorise/Vectorise/Exp.hs b/compiler/vectorise/Vectorise/Exp.hs
index d792fd6..862a760 100644
--- a/compiler/vectorise/Vectorise/Exp.hs
+++ b/compiler/vectorise/Vectorise/Exp.hs
@@ -176,8 +176,8 @@ vectScalarLam
 	
 vectScalarLam args body
  = do scalars <- globalScalars
-      onlyIfV (all is_scalar_ty arg_tys
-               && is_scalar_ty res_ty
+      onlyIfV (all is_prim_ty arg_tys
+               && is_prim_ty res_ty
                && is_scalar (extendVarSetList scalars args) body
                && uses scalars body)
         $ do