diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-04-12 13:20:44 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-04-12 13:20:44 +0000 |
| commit | fc621cd805289e81be950560fbfa9d30c298934c (patch) | |
| tree | 6f1806d4580952734014832cff828c412968ec16 /compiler/parser/Lexer.x | |
| parent | 903205d522185034734bec2be26d9ae574f311bf (diff) | |
| download | haskell-fc621cd805289e81be950560fbfa9d30c298934c.tar.gz | |
(F)SLIT -> (f)sLit in Lexer
Diffstat (limited to 'compiler/parser/Lexer.x')
| -rw-r--r-- | compiler/parser/Lexer.x | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index 4042a9c518..9ab4190b3d 100644 --- a/compiler/parser/Lexer.x +++ b/compiler/parser/Lexer.x @@ -42,8 +42,6 @@ module Lexer ( addWarning ) where -#include "HsVersions.h" - import Bag import ErrUtils import Outputable @@ -1705,8 +1703,8 @@ srcParseErr -> Message srcParseErr buf len = hcat [ if null token - then ptext SLIT("parse error (possibly incorrect indentation)") - else hcat [ptext SLIT("parse error on input "), + then ptext (sLit "parse error (possibly incorrect indentation)") + else hcat [ptext (sLit "parse error on input "), char '`', text token, char '\''] ] where token = lexemeToString (offsetBytes (-len) buf) len |