From 82c472197617c7ede66b90179245311d9ae0fbfa Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Sat, 17 Nov 2007 04:27:14 +0000 Subject: [PATCH] Teach vectorisation about Bool --- compiler/vectorise/VectBuiltIn.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/compiler/vectorise/VectBuiltIn.hs b/compiler/vectorise/VectBuiltIn.hs index 3975a19..6ce781b 100644 --- a/compiler/vectorise/VectBuiltIn.hs +++ b/compiler/vectorise/VectBuiltIn.hs @@ -30,7 +30,9 @@ import OccName import TypeRep ( funTyCon ) import Type ( Type ) import TysPrim -import TysWiredIn ( unitTyCon, tupleTyCon, intTyCon, intTyConName ) +import TysWiredIn ( unitTyCon, tupleTyCon, + intTyCon, intTyConName, + boolTyCon, boolTyConName ) import Module import BasicTypes ( Boxity(..) ) @@ -184,7 +186,7 @@ initBuiltinTyCons bi = (tyConName funTyCon, closureTyCon bi) : [(tyConName tc, tc) | tc <- defaultTyCons] defaultTyCons :: [TyCon] -defaultTyCons = [intTyCon] +defaultTyCons = [intTyCon, boolTyCon] initBuiltinDicts :: [(Name, Module, FastString)] -> DsM [(Name, Var)] initBuiltinDicts ps @@ -204,6 +206,7 @@ builtinPAs bi , mk unitTyConName nDP_INSTANCES FSLIT("dPA_Unit") , mk intTyConName nDP_INSTANCES FSLIT("dPA_Int") + , mk boolTyConName nDP_INSTANCES FSLIT("dPA_Bool") ] ++ tups where -- 1.7.10.4