-{- pprTrace "vectScalarLam uses" (ppr $ uses scalars body) $
- pprTrace "vectScalarLam is prim res" (ppr $ is_prim_ty res_ty) $
- pprTrace "vectScalarLam is scalar body" (ppr $ is_scalar (extendVarSetList scalars args) body) $
- pprTrace "vectScalarLam arg tys" (ppr $ arg_tys) $ -}