Commit fc621cd8 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

(F)SLIT -> (f)sLit in Lexer

parent 903205d5
......@@ -42,8 +42,6 @@ module Lexer (
) 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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment