diff options
| author | unknown <simonpj@MSRC-4971295.europe.corp.microsoft.com> | 2013-09-24 20:01:31 +0100 |
|---|---|---|
| committer | unknown <simonpj@MSRC-4971295.europe.corp.microsoft.com> | 2013-10-01 16:54:56 +0100 |
| commit | 96f33e63fe913298becbef33bf95daee98fbe44d (patch) | |
| tree | 4497f30b55576ee13d4e964da4b2ea2d390ab78d /compiler/vectorise | |
| parent | e276ed7894291e5f5f44dc225b129d1eac2d4e59 (diff) | |
| download | haskell-96f33e63fe913298becbef33bf95daee98fbe44d.tar.gz | |
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.
Diffstat (limited to 'compiler/vectorise')
| -rw-r--r-- | compiler/vectorise/Vectorise/Type/TyConDecl.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |