From 0f16ce565a0487035315008d0f983e741101fb70 Mon Sep 17 00:00:00 2001 From: simonmar Date: Thu, 9 May 2002 12:45:19 +0000 Subject: [haddock @ 2002-05-09 12:45:19 by simonmar] Add 'stdcall' keyword --- src/HsLexer.lhs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/HsLexer.lhs b/src/HsLexer.lhs index e270154a..505e07f8 100644 --- a/src/HsLexer.lhs +++ b/src/HsLexer.lhs @@ -1,5 +1,5 @@ ----------------------------------------------------------------------------- --- $Id: HsLexer.lhs,v 1.7 2002/05/09 10:34:44 simonmar Exp $ +-- $Id: HsLexer.lhs,v 1.8 2002/05/09 12:45:19 simonmar Exp $ -- -- (c) The GHC Team, 1997-2000 -- @@ -176,7 +176,8 @@ reserved_ids = [ ( "where", KW_Where ), ( "as", KW_As ), ( "qualified", KW_Qualified ), - ( "hiding", KW_Hiding ) + ( "hiding", KW_Hiding ), + ( "stdcall", KW_StdCall ) ] isIdent c = isAlpha c || isDigit c || c == '\'' || c == '_' -- cgit v1.2.3