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 527ba156a384..822034a9e5af 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" <+>
--
GitLab