[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 (file)
--- 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" <+>