Commit 665c363b authored by simonpj's avatar simonpj
Browse files

[project @ 2001-03-01 15:51:46 by simonpj]

Sub-wibble 2 (sigh)
parent 4435024f
......@@ -576,14 +576,14 @@ pprRulesAndDeprecs rules deprecs
pp_rules [] = empty
pp_rules rules = ptext SLIT("__R") <+> vcat (map ppr rules)
ppr_deprecs NoDeprecs = empty
ppr_deprecs deprecs = ptext SLIT("__D") <+> guts
pp_deprecs NoDeprecs = empty
pp_deprecs deprecs = ptext SLIT("__D") <+> guts
where
guts = case deprecs of
DeprecAll txt -> doubleQuotes (ptext txt)
DeprecSome env -> pp_deprecs env
DeprecSome env -> ppr_deprec_env env
pp_deprecs env = vcat (punctuate semi (map pp_deprec (nameEnvElts env)))
where
pp_deprec (name, txt) = pprOcc name <+> doubleQuotes (ptext txt)
ppr_deprec_env env = vcat (punctuate semi (map pp_deprec (nameEnvElts env)))
where
pp_deprec (name, txt) = pprOcc name <+> doubleQuotes (ptext txt)
\end{code}
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