From 7a5442f3bd91cc24c54c828529d8fee76aeec388 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Sat, 17 Nov 2007 04:05:37 +0000 Subject: [PATCH] Make sure some TyCons always vectorise to themselves --- compiler/vectorise/VectBuiltIn.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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 -- 1.7.10.4