diff options
| author | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2011-10-10 12:01:51 +1100 |
|---|---|---|
| committer | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2011-10-10 12:07:41 +1100 |
| commit | fa278b82730c2d18297bc9c8567b1b35a8769f5f (patch) | |
| tree | 18f6ca56e0acbeff8f7e8f6a9088ef21d4507d48 /compiler/vectorise/Vectorise.hs | |
| parent | 29a97fded4010bd01aa0a17945c84258e285d421 (diff) | |
| download | haskell-fa278b82730c2d18297bc9c8567b1b35a8769f5f.tar.gz | |
Fully implement for VECTORISE type pragmas (non-SCALAR).
Diffstat (limited to 'compiler/vectorise/Vectorise.hs')
| -rw-r--r-- | compiler/vectorise/Vectorise.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs index 083b2b05a5..daa2ed0725 100644 --- a/compiler/vectorise/Vectorise.hs +++ b/compiler/vectorise/Vectorise.hs @@ -76,7 +76,7 @@ vectModule guts@(ModGuts { mg_tcs = tycons -- and type families used in the DPH library to represent -- array types. ; (tycons', new_fam_insts, tc_binds) <- vectTypeEnv tycons [vd - | vd@(VectType _ _) <- vect_decls] + | vd@(VectType _ _ _) <- vect_decls] ; (_, fam_inst_env) <- readGEnv global_fam_inst_env |