diff options
| author | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2011-11-09 10:29:47 +1100 |
|---|---|---|
| committer | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2011-11-09 12:00:48 +1100 |
| commit | 9097e67beb64e29bb72e18a85b1cfca2a045ea76 (patch) | |
| tree | fab18ec3ad363cbd71e3e890e72e9a28768bc1a7 /compiler/vectorise/Vectorise/Env.hs | |
| parent | 44d999bb54ea1c1ab590bd1f18c47a40411b79bd (diff) | |
| download | haskell-9097e67beb64e29bb72e18a85b1cfca2a045ea76.tar.gz | |
First cut at scalar vectorisation of class instances
Diffstat (limited to 'compiler/vectorise/Vectorise/Env.hs')
| -rw-r--r-- | compiler/vectorise/Vectorise/Env.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/vectorise/Vectorise/Env.hs b/compiler/vectorise/Vectorise/Env.hs index 2f20bb4067..2de71a5e3f 100644 --- a/compiler/vectorise/Vectorise/Env.hs +++ b/compiler/vectorise/Vectorise/Env.hs @@ -145,7 +145,8 @@ initGlobalEnv info vectDecls instEnvs famInstEnvs -- FIXME: we currently only allow RHSes consisting of a -- single variable to be able to obtain the type without -- inference — see also 'TcBinds.tcVect' - scalar_vars = [var | Vect var Nothing <- vectDecls] + scalar_vars = [var | Vect var Nothing <- vectDecls] ++ + [var | VectInst True var <- vectDecls] novects = [var | NoVect var <- vectDecls] scalar_tycons = [tyConName tycon | VectType True tycon _ <- vectDecls] |