diff options
| author | simonpj@microsoft.com <unknown> | 2009-10-30 17:59:07 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-10-30 17:59:07 +0000 |
| commit | fb6d198f498d4e325a540f28aaa6e1d1530839c3 (patch) | |
| tree | 8c5ddb69e8e7b047e4b09914b1aa8527d121a31e /compiler/vectorise/VectUtils.hs | |
| parent | cf4d037c05371455b7ae68c2b61215bd691e137a (diff) | |
| download | haskell-fb6d198f498d4e325a540f28aaa6e1d1530839c3.tar.gz | |
Minor refactoring
MkCore.mkCoreTupTy moves to TysWiredIn, where it is called mkBoxedTupleTy
Diffstat (limited to 'compiler/vectorise/VectUtils.hs')
| -rw-r--r-- | compiler/vectorise/VectUtils.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/vectorise/VectUtils.hs b/compiler/vectorise/VectUtils.hs index 9faa0edf73..6207acdc11 100644 --- a/compiler/vectorise/VectUtils.hs +++ b/compiler/vectorise/VectUtils.hs @@ -25,7 +25,7 @@ module VectUtils ( import VectCore import VectMonad -import MkCore ( mkCoreTup, mkCoreTupTy, mkWildCase ) +import MkCore ( mkCoreTup, mkWildCase ) import CoreSyn import CoreUtils import CoreUnfold ( mkInlineRule ) @@ -514,5 +514,5 @@ buildEnv vs where (vvs, lvs) = unzip vs tys = map vVarType vs - ty = mkCoreTupTy tys + ty = mkBoxedTupleTy tys |