Commit 9f092337 authored by simonpj's avatar simonpj
Browse files

[project @ 2003-10-31 12:56:50 by simonpj]

Pretty-printing wibble; fixes many tests
parent 57573e7e
......@@ -523,6 +523,8 @@ ppr_type p ty@(ForAllTy _ _)
split2 ps ty = (reverse ps, ty)
ppr_tc_app :: Prec -> TyCon -> [Type] -> SDoc
ppr_tc_app p tc []
= ppr tc
ppr_tc_app p tc [ty]
| tc `hasKey` listTyConKey = brackets (pprType ty)
| tc `hasKey` parrTyConKey = ptext SLIT("[:") <> pprType ty <> ptext SLIT(":]")
......
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