From: simonmar <unknown>
Date: Mon, 5 Mar 2001 10:06:27 +0000 (+0000)
Subject: [project @ 2001-03-05 10:06:27 by simonmar]
X-Git-Tag: Approximately_9120_patches~2473
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9c59d745e263c8c1db89b4a1a4f7861e48473f6a;p=ghc-hetmet.git

[project @ 2001-03-05 10:06:27 by simonmar]
small rearrangement
---

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 8181b64..6e01872 100644
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -390,13 +390,6 @@ pragma	: src_loc PRAGMA	{ parseIdInfo $2 PState{ bol = 0#, atbol = 1#,
 							loc = $1 }
 				}
 
-rules_prag :: { ParseResult ([RdrNameRuleDecl], IfaceDeprecs) }
-rules_prag : src_loc PRAGMA	{ parseRules $2 PState{ bol = 0#, atbol = 1#,
-							context = [],
-							glasgow_exts = 1#,
-							loc = $1 }
-				}
-
 -----------------------------------------------------------------------------
 
 rules_and_deprecs_part :: { ([RdrNameRuleDecl], IfaceDeprecs) }
@@ -406,6 +399,13 @@ rules_and_deprecs_part : {- empty -}	{ ([], Nothing) }
 					     PFailed err -> pprPanic "Rules/Deprecations parse failed" err
 					}
 
+rules_prag :: { ParseResult ([RdrNameRuleDecl], IfaceDeprecs) }
+rules_prag : src_loc PRAGMA	{ parseRules $2 PState{ bol = 0#, atbol = 1#,
+							context = [],
+							glasgow_exts = 1#,
+							loc = $1 }
+				}
+
 rules_and_deprecs :: { ([RdrNameRuleDecl], IfaceDeprecs) }
 rules_and_deprecs : rule_prag deprec_prag	{ ($1, $2) }