From 21703cf93de9e93f6b278b4d46f8511a813cbeda Mon Sep 17 00:00:00 2001
From: "keller@cse.unsw.edu.au" <unknown>
Date: Wed, 2 Feb 2011 05:14:08 +0000
Subject: [PATCH]

---
 compiler/vectorise/Vectorise/Exp.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
-- 
1.7.10.4