From 96f33e63fe913298becbef33bf95daee98fbe44d Mon Sep 17 00:00:00 2001 From: unknown Date: Tue, 24 Sep 2013 20:01:31 +0100 Subject: Move defaultClassMinimalDef from BuildTyCl to TcClassDcl Simple refactoring. Also in Vectorise.Types/TyConDecl, simply propagate the classMinimalDef from the class we are vectorising. Simpler and more direct. --- compiler/vectorise/Vectorise/Type/TyConDecl.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'compiler/vectorise') diff --git a/compiler/vectorise/Vectorise/Type/TyConDecl.hs b/compiler/vectorise/Vectorise/Type/TyConDecl.hs index 29d54a074b..a8159b09f4 100644 --- a/compiler/vectorise/Vectorise/Type/TyConDecl.hs +++ b/compiler/vectorise/Vectorise/Type/TyConDecl.hs @@ -6,7 +6,7 @@ module Vectorise.Type.TyConDecl ( import Vectorise.Type.Type import Vectorise.Monad import Vectorise.Env( GlobalEnv( global_fam_inst_env ) ) -import BuildTyCl +import BuildTyCl( buildClass, buildDataCon ) import Class import Type import TyCon @@ -67,7 +67,7 @@ vectTyConDecl tycon name' (snd . classTvsFds $ cls) -- keep the original functional dependencies [] -- no associated types (for the moment) methods' -- method info - (defaultClassMinimalDef methods') -- default minimal complete definition + (classMinimalDef cls) -- Inherit minimal complete definition from cls rec_flag -- whether recursive -- the original dictionary constructor must map to the vectorised one -- cgit v1.2.1