From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Sat, 17 Nov 2007 04:05:37 +0000 (+0000)
Subject: Make sure some TyCons always vectorise to themselves
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=7a5442f3bd91cc24c54c828529d8fee76aeec388

Make sure some TyCons always vectorise to themselves
---

diff --git a/compiler/vectorise/VectBuiltIn.hs b/compiler/vectorise/VectBuiltIn.hs
index 92bd1b5..19df7cc 100644
--- a/compiler/vectorise/VectBuiltIn.hs
+++ b/compiler/vectorise/VectBuiltIn.hs
@@ -179,7 +179,11 @@ initBuiltins
                }
 
 initBuiltinTyCons :: Builtins -> [(Name, TyCon)]
-initBuiltinTyCons bi = [(tyConName funTyCon, closureTyCon bi)]
+initBuiltinTyCons bi = (tyConName funTyCon, closureTyCon bi)
+                     : [(tyConName tc, tc) | tc <- defaultTyCons]
+
+defaultTyCons :: [TyCon]
+defaultTyCons = [intTyCon]
 
 initBuiltinDicts :: [(Name, Module, FastString)] -> DsM [(Name, Var)]
 initBuiltinDicts ps