From 9c59d745e263c8c1db89b4a1a4f7861e48473f6a Mon Sep 17 00:00:00 2001 From: simonmar Date: Mon, 5 Mar 2001 10:06:27 +0000 Subject: [PATCH] [project @ 2001-03-05 10:06:27 by simonmar] small rearrangement --- ghc/compiler/rename/ParseIface.y | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) 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) } -- 1.7.10.4