From f8bfbc444dc77d9d8c5f19ff33e198da43c7a8f0 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Tue, 17 Jul 2007 04:19:57 +0000 Subject: [PATCH] Clean up --- compiler/vectorise/VectType.hs | 3 +++ compiler/vectorise/Vectorise.hs | 4 ---- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/compiler/vectorise/VectType.hs b/compiler/vectorise/VectType.hs index 155f420..fb0b9dc 100644 --- a/compiler/vectorise/VectType.hs +++ b/compiler/vectorise/VectType.hs @@ -14,6 +14,9 @@ import Outputable import Control.Monad ( liftM2 ) +-- ---------------------------------------------------------------------------- +-- Types + vectTyCon :: TyCon -> VM TyCon vectTyCon tc | isFunTyCon tc = builtin closureTyCon diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs index 4e84e13..5f24741 100644 --- a/compiler/vectorise/Vectorise.hs +++ b/compiler/vectorise/Vectorise.hs @@ -421,7 +421,3 @@ vectTyAppExpr :: CoreExpr -> CoreExprWithFVs -> [Type] -> VM (CoreExpr, CoreExpr vectTyAppExpr lc (_, AnnVar v) tys = vectPolyVar lc v tys vectTyAppExpr lc e tys = pprPanic "vectTyAppExpr" (ppr $ deAnnotate e) --- ---------------------------------------------------------------------------- --- Types - - -- 1.7.10.4