From fb0471345c37068688b9dcc0f59b309c725091e0 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Mon, 16 Jul 2007 06:28:33 +0000 Subject: [PATCH] Fix bad bug in type vectorisation --- compiler/vectorise/Vectorise.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs index 96fe9d2..a51f1a1 100644 --- a/compiler/vectorise/Vectorise.hs +++ b/compiler/vectorise/Vectorise.hs @@ -438,7 +438,7 @@ vectTyCon tc Nothing -> pprTrace "ccTyCon:" (ppr tc) $ return tc vectType :: Type -> VM Type -vectType ty | Just ty' <- coreView ty = vectType ty +vectType ty | Just ty' <- coreView ty = vectType ty' vectType (TyVarTy tv) = return $ TyVarTy tv vectType (AppTy ty1 ty2) = liftM2 AppTy (vectType ty1) (vectType ty2) vectType (TyConApp tc tys) = liftM2 TyConApp (vectTyCon tc) (mapM vectType tys) -- 1.7.10.4