Commit 5f7b4969 authored by Ian Lynagh's avatar Ian Lynagh

RULES pragmas only need explicitForallEnabled, no -fglasgow-exts

parent 8e73f2c0
...@@ -220,13 +220,14 @@ $tab+ { warn Opt_WarnTabs (text "Tab character") } ...@@ -220,13 +220,14 @@ $tab+ { warn Opt_WarnTabs (text "Tab character") }
-- NOTE: accept -} at the end of a LINE pragma, for compatibility -- NOTE: accept -} at the end of a LINE pragma, for compatibility
-- with older versions of GHC which generated these. -- with older versions of GHC which generated these.
-- We only want RULES pragmas to be picked up when -fglasgow-exts -- We only want RULES pragmas to be picked up when explicit forall
-- is on, because the contents of the pragma is always written using -- syntax is enabled is on, because the contents of the pragma always
-- glasgow-exts syntax (using forall etc.), so if glasgow exts are not -- uses it. If it's not on then we're sure to get a parse error.
-- enabled, we're sure to get a parse error.
-- (ToDo: we should really emit a warning when ignoring pragmas) -- (ToDo: we should really emit a warning when ignoring pragmas)
<glaexts> -- XXX Now that we can enable this without the -fglasgow-exts hammer,
"{-#" $whitechar* (RULES|rules) { token ITrules_prag } -- is it better just to let the parse error happen?
<0,glaexts>
"{-#" $whitechar* (RULES|rules) / { ifExtension explicitForallEnabled } { token ITrules_prag }
<0,option_prags,glaexts> { <0,option_prags,glaexts> {
"{-#" $whitechar* (INLINE|inline) { token (ITinline_prag True) } "{-#" $whitechar* (INLINE|inline) { token (ITinline_prag True) }
......
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