Commit 33989e6e authored by Simon Marlow's avatar Simon Marlow
Browse files

do a better job of ignoring unrecognised pragmas

parent 06855066
......@@ -216,6 +216,11 @@ $white_no_nl+ ;
"{-#" $whitechar* (INCLUDE|include) { lex_string_prag ITinclude_prag }
}
<0,option_prags,glaexts> {
-- This is to catch things like {-# OPTIONS OPTIONS_HUGS ...
"{-#" $whitechar* $idchar+ { nested_comment }
}
-- '0' state: ordinary lexemes
-- 'glaexts' state: glasgow extensions (postfix '#', etc.)
......
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