X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fparser%2FLexer.x;h=3ba0b1e19a54be94347f22e0b69b93db57d40578;hb=f940a549b7562dcdbea3af81ee93b1660d279497;hp=8d2a9a5cc87c1533e12a33d78b8206e8e4d87a34;hpb=0c3e42b73205ec0811ab1899fa60bfdebd4ae77d;p=ghc-hetmet.git

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