From 5a98231dd978a40d719faf8eaa31f369196e58cc Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Fri, 25 Jan 2008 14:34:21 +0000 Subject: [PATCH] A couple more parser tweaks --- compiler/parser/Lexer.x | 1 + compiler/parser/Parser.y.pp | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index 8d2a9a5..3ba0b1e 100644 --- a/compiler/parser/Lexer.x +++ b/compiler/parser/Lexer.x @@ -920,6 +920,7 @@ splitQualName orig_buf len = split orig_buf orig_buf qual_size = orig_buf `byteDiff` dot_buf varid span buf len = + fs `seq` case lookupUFM reservedWordsFM fs of Just (keyword,0) -> do maybe_layout keyword diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp index 06e55ff..418f0a1 100644 --- a/compiler/parser/Parser.y.pp +++ b/compiler/parser/Parser.y.pp @@ -824,7 +824,7 @@ where_inst :: { Located (OrdList (LHsDecl RdrName)) } -- Reversed decls :: { Located (OrdList (LHsDecl RdrName)) } : decls ';' decl { let { this = unLoc $3; rest = unLoc $1; - these = unLoc $1 `appOL` unLoc $3 } + these = rest `appOL` this } in rest `seq` this `seq` these `seq` LL these } | decls ';' { LL (unLoc $1) } -- 1.7.10.4