[project @ 1996-06-26 10:26:00 by partain]

[ghc-hetmet.git] / ghc / compiler / parser / hslexer.flex

diff --git a/ghc/compiler/parser/hslexer.flex b/ghc/compiler/parser/hslexer.flex
index ab3300e..a0033b1 100644 (file)
--- a/ghc/compiler/parser/hslexer.flex
+++ b/ghc/compiler/parser/hslexer.flex
@@ -478,6 +478,16 @@ NL                         [\n\r]
                         hsnewid(yytext, yyleng);
                         RETURN(isconstr(yytext) ? CONSYM : VARSYM);
                        }
+<Code,GlaExt,UserPragma>{Mod}"."{Id}"#"        {
+                        BOOLEAN is_constr;
+                        if (! nonstandardFlag) {
+                           char errbuf[ERR_BUF_SIZE];
+                           sprintf(errbuf, "Non-standard identifier (trailing `#'): %s\n", yytext);
+                           hsperror(errbuf);
+                        }
+                        is_constr = hsnewqid(yytext, yyleng);
+                        RETURN(is_constr ? QCONID : QVARID);
+                       }
 <Code,GlaExt,UserPragma>{Mod}"."{Id}   {
                         BOOLEAN is_constr = hsnewqid(yytext, yyleng);
                         RETURN(is_constr ? QCONID : QVARID);