Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/dc4235bc28ccb06da788946ad91d43f1c55fee40 >--------------------------------------------------------------- commit dc4235bc28ccb06da788946ad91d43f1c55fee40 Author: Manuel M T Chakravarty <[email protected]> Date: Tue Nov 22 00:05:05 2011 +1100 Don't warn about not vectorised type synonyms >--------------------------------------------------------------- compiler/vectorise/Vectorise/Type/Env.hs | 9 +++++---- 1 files changed, 5 insertions(+), 4 deletions(-) diff --git a/compiler/vectorise/Vectorise/Type/Env.hs b/compiler/vectorise/Vectorise/Type/Env.hs index 1b806c3..affd4ca 100644 --- a/compiler/vectorise/Vectorise/Type/Env.hs +++ b/compiler/vectorise/Vectorise/Type/Env.hs @@ -173,11 +173,12 @@ vectTypeEnv tycons vectTypeDecls vectClassDecls ; traceVt " convert : " $ ppr conv_tcs -- warn the user about unvectorised type constructors - ; let explanation = ptext (sLit "(They use unsupported language extensions") $$ - ptext (sLit "or depend on type constructors that are not vectorised)") - ; unless (null drop_tcs) $ + ; let explanation = ptext (sLit "(They use unsupported language extensions") $$ + ptext (sLit "or depend on type constructors that are not vectorised)") + drop_tcs_nosyn = filter (not . isSynTyCon) drop_tcs + ; unless (null drop_tcs_nosyn) $ emitVt "Warning: cannot vectorise these type constructors:" $ - pprQuotedList drop_tcs $$ explanation + pprQuotedList drop_tcs_nosyn $$ explanation ; let defTyConDataCons origTyCon vectTyCon = do { defTyCon origTyCon vectTyCon _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
