Commit dc4235bc authored by chak@cse.unsw.edu.au.'s avatar chak@cse.unsw.edu.au.
Browse files

Don't warn about not vectorised type synonyms

parent 19537745
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment