From: simonpj <unknown>
Date: Thu, 1 Mar 2001 15:42:31 +0000 (+0000)
Subject: [project @ 2001-03-01 15:42:31 by simonpj]
X-Git-Tag: Approximately_9120_patches~2500
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4435024f2be6d7c9f0ff796db6c5c9033e6403a4;p=ghc-hetmet.git

[project @ 2001-03-01 15:42:31 by simonpj]
Sub-wibble
---

diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs
index 9efdc05..87436d3 100644
--- 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