diff options
| author | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2011-11-25 22:57:40 +1100 |
|---|---|---|
| committer | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2011-11-25 23:03:01 +1100 |
| commit | 18aae18503442276e14a47eabf4786bc7210662e (patch) | |
| tree | dfc556a1b047c0031342db4b8e8d429b5f230613 /compiler/vectorise/Vectorise/Monad | |
| parent | 498467cf44e871a6abdb1e16714f6e91c7b10a80 (diff) | |
| download | haskell-18aae18503442276e14a47eabf4786bc7210662e.tar.gz | |
Fix newtype wrapper for 'PData[s] (Wrap a)' and fix VECTORISE type and instance pragmas
* Correct usage of new type wrappers from MkId
* 'VECTORISE [SCALAR] type T = S' didn't work correctly across module boundaries
* Clean up 'VECTORISE SCALAR instance'
Diffstat (limited to 'compiler/vectorise/Vectorise/Monad')
| -rw-r--r-- | compiler/vectorise/Vectorise/Monad/Global.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/vectorise/Vectorise/Monad/Global.hs b/compiler/vectorise/Vectorise/Monad/Global.hs index bc68a5012f..f393f01e92 100644 --- a/compiler/vectorise/Vectorise/Monad/Global.hs +++ b/compiler/vectorise/Vectorise/Monad/Global.hs @@ -12,7 +12,7 @@ module Vectorise.Monad.Global ( lookupVectDecl, noVectDecl, -- * Scalars - globalScalarVars, isGlobalScalar, globalScalarTyCons, + globalScalarVars, isGlobalScalarVar, globalScalarTyCons, -- * TyCons lookupTyCon, @@ -96,8 +96,8 @@ globalScalarVars = readGEnv global_scalar_vars -- |Check whether a given variable is in the set of global scalar variables. -- -isGlobalScalar :: Var -> VM Bool -isGlobalScalar var = readGEnv $ \env -> var `elemVarSet` global_scalar_vars env +isGlobalScalarVar :: Var -> VM Bool +isGlobalScalarVar var = readGEnv $ \env -> var `elemVarSet` global_scalar_vars env -- |Get the set of global scalar type constructors including both those scalar type constructors -- declared in an imported module and those declared in the current module. |