diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-02-21 23:03:41 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-02-22 01:46:33 +0000 |
| commit | 544926d7c6fe5823eb12b7907853e34ad7444b9b (patch) | |
| tree | 3871220450f474ef8d62bac92e21e948fbd39212 /compiler/vectorise | |
| parent | 62494e7b8276f613233f2fbcc2d5c545bd39c86d (diff) | |
| download | haskell-544926d7c6fe5823eb12b7907853e34ad7444b9b.tar.gz | |
Remove support for CTYPE pragmas on type synonyms
It's not clear whether it's desirable or not, and it turns out that
the way we use coercions in GHC means we tend to lose information
about type synonyms.
Diffstat (limited to 'compiler/vectorise')
| -rw-r--r-- | compiler/vectorise/Vectorise/Type/Env.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/vectorise/Vectorise/Type/Env.hs b/compiler/vectorise/Vectorise/Type/Env.hs index dd4b923ca0..0051d072a4 100644 --- a/compiler/vectorise/Vectorise/Type/Env.hs +++ b/compiler/vectorise/Vectorise/Type/Env.hs @@ -326,7 +326,7 @@ vectTypeEnv tycons vectTypeDecls vectClassDecls origName = tyConName origTyCon vectName = tyConName vectTyCon - mkSyn canonName ty = mkSynTyCon canonName (typeKind ty) [] Nothing (SynonymTyCon ty) NoParentTyCon + mkSyn canonName ty = mkSynTyCon canonName (typeKind ty) [] (SynonymTyCon ty) NoParentTyCon defDataCons | isAbstract = return () |