From 74651b6d424acdb604f3858e944a979bb9a938ae Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Wed, 16 Feb 2000 12:56:22 +0000
Subject: [PATCH] [project @ 2000-02-16 12:56:22 by panne] Fixed pretty
 printing of RULES

---
 ghc/compiler/hsSyn/HsDecls.lhs |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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" <+> 
-- 
1.7.10.4