summaryrefslogtreecommitdiff
path: root/ghc/compiler/parser/hslexer.flex
diff options
context:
space:
mode:
Diffstat (limited to 'ghc/compiler/parser/hslexer.flex')
-rw-r--r--ghc/compiler/parser/hslexer.flex4
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/parser/hslexer.flex b/ghc/compiler/parser/hslexer.flex
index a0033b16a3..efac20b4a8 100644
--- a/ghc/compiler/parser/hslexer.flex
+++ b/ghc/compiler/parser/hslexer.flex
@@ -461,8 +461,8 @@ NL [\n\r]
%{
/* These SHOULDNAE work in "Code" (sigh) */
%}
-<Code,GlaExt,UserPragma>{Id}"#" {
- if (! nonstandardFlag) {
+<GlaExt,UserPragma>{Id}"#" {
+ if (! nonstandardFlag) {
char errbuf[ERR_BUF_SIZE];
sprintf(errbuf, "Non-standard identifier (trailing `#'): %s\n", yytext);
hsperror(errbuf);