Commit 05535340 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Use zipLazy from Util in VectType, rather than defining our own lazy_zip

parent e7c82936
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment