diff options
Diffstat (limited to 'compiler/parser/Lexer.x')
| -rw-r--r-- | compiler/parser/Lexer.x | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index ac6571c385..7067fe0c6d 100644 --- a/compiler/parser/Lexer.x +++ b/compiler/parser/Lexer.x @@ -2272,8 +2272,8 @@ srcParseErr -> MsgDoc srcParseErr dflags buf len = if null token - then ptext (sLit "parse error (possibly incorrect indentation or mismatched brackets)") - else ptext (sLit "parse error on input") <+> quotes (text token) + then text "parse error (possibly incorrect indentation or mismatched brackets)" + else text "parse error on input" <+> quotes (text token) $$ ppWhen (not th_enabled && token == "$") -- #7396 (text "Perhaps you intended to use TemplateHaskell") $$ ppWhen (token == "<-") |