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