Commit 9c59d745 authored by simonmar's avatar simonmar

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

small rearrangement
parent b671b141
......@@ -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) }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment