From: panne <unknown>
Date: Wed, 16 Feb 2000 12:56:22 +0000 (+0000)
Subject: [project @ 2000-02-16 12:56:22 by panne]
X-Git-Tag: Approximately_9120_patches~5128
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=74651b6d424acdb604f3858e944a979bb9a938ae;p=ghc-hetmet.git

[project @ 2000-02-16 12:56:22 by panne]
Fixed pretty printing of RULES
---

diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs
index 527ba15..822034a 100644
--- a/ghc/compiler/hsSyn/HsDecls.lhs
+++ b/ghc/compiler/hsSyn/HsDecls.lhs
@@ -438,8 +438,9 @@ data RuleBndr name
 instance (Outputable name, Outputable pat)
 	      => Outputable (RuleDecl name pat) where
   ppr (RuleDecl name tvs ns lhs rhs loc)
-	= text "RULE" <+> doubleQuotes (ptext name) <> colon <+> 
-	  sep [pp_forall, ppr lhs, equals <+> ppr rhs]
+	= sep [text "{-# RULES" <+> doubleQuotes (ptext name),
+	       pp_forall, ppr lhs, equals <+> ppr rhs,
+               text "#-}" ]
 	where
 	  pp_forall | null tvs && null ns = empty
 		    | otherwise		  = text "forall" <+>