From 05535340ae496c57ff218e016da6649ca1640754 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 13 May 2008 20:21:54 +0000 Subject: [PATCH] Use zipLazy from Util in VectType, rather than defining our own lazy_zip --- compiler/vectorise/VectType.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/compiler/vectorise/VectType.hs b/compiler/vectorise/VectType.hs index 84d9aa5..42342c4 100644 --- a/compiler/vectorise/VectType.hs +++ b/compiler/vectorise/VectType.hs @@ -32,7 +32,7 @@ import TysPrim ( intPrimTy ) import Unique import UniqFM import UniqSet -import Util ( singleton ) +import Util import Digraph ( SCC(..), stronglyConnComp ) import Outputable @@ -154,11 +154,8 @@ vectTypeEnv env vectTyConDecls :: [TyCon] -> VM [TyCon] vectTyConDecls tcs = fixV $ \tcs' -> do - mapM_ (uncurry defTyCon) (lazy_zip tcs tcs') + mapM_ (uncurry defTyCon) (zipLazy tcs tcs') mapM vectTyConDecl tcs - where - lazy_zip [] _ = [] - lazy_zip (x:xs) ~(y:ys) = (x,y) : lazy_zip xs ys vectTyConDecl :: TyCon -> VM TyCon vectTyConDecl tc -- 1.7.10.4