projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
60cc861
)
[project @ 2001-03-01 15:42:31 by simonpj]
author
simonpj
<unknown>
Thu, 1 Mar 2001 15:42:31 +0000
(15:42 +0000)
committer
simonpj
<unknown>
Thu, 1 Mar 2001 15:42:31 +0000
(15:42 +0000)
Sub-wibble
ghc/compiler/main/MkIface.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/main/MkIface.lhs
b/ghc/compiler/main/MkIface.lhs
index
9efdc05
..
87436d3
100644
(file)
--- a/
ghc/compiler/main/MkIface.lhs
+++ b/
ghc/compiler/main/MkIface.lhs
@@
-570,7
+570,7
@@
pprFixities fixity_map decls
-- Disgusting to print these two together, but that's
-- the way the interface parser currently expects them.
pprRulesAndDeprecs [] NoDeprecs = empty
-pprRules rules deprecs
+pprRulesAndDeprecs rules deprecs
= ptext SLIT("{-##") <+> (pp_rules rules $$ pp_deprecs deprecs) <+> ptext SLIT("##-}")
where
pp_rules [] = empty