From 544926d7c6fe5823eb12b7907853e34ad7444b9b Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 21 Feb 2012 23:03:41 +0000 Subject: 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. --- compiler/vectorise/Vectorise/Type/Env.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'compiler/vectorise') 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 () -- cgit v1.2.1