projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
903205d
)
(F)SLIT -> (f)sLit in Lexer
author
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 13:20:44 +0000
(13:20 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 13:20:44 +0000
(13:20 +0000)
compiler/parser/Lexer.x
patch
|
blob
|
history
diff --git
a/compiler/parser/Lexer.x
b/compiler/parser/Lexer.x
index
4042a9c
..
9ab4190
100644
(file)
--- a/
compiler/parser/Lexer.x
+++ b/
compiler/parser/Lexer.x
@@
-42,8
+42,6
@@
module Lexer (
addWarning
) where
addWarning
) where
-#include "HsVersions.h"
-
import Bag
import ErrUtils
import Outputable
import Bag
import ErrUtils
import Outputable
@@
-1705,8
+1703,8
@@
srcParseErr
-> Message
srcParseErr buf len
= hcat [ if null token
-> 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
char '`', text token, char '\'']
]
where token = lexemeToString (offsetBytes (-len) buf) len