projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix #4346 (INLINABLE pragma not behaving consistently)
[ghc-hetmet.git]
/
utils
/
hpc
/
HpcLexer.hs
diff --git
a/utils/hpc/HpcLexer.hs
b/utils/hpc/HpcLexer.hs
index
db886a3
..
feeb35a
100644
(file)
--- a/
utils/hpc/HpcLexer.hs
+++ b/
utils/hpc/HpcLexer.hs
@@
-11,11
+11,11
@@
data Token
deriving (Eq,Show)
initLexer :: String -> [Token]
deriving (Eq,Show)
initLexer :: String -> [Token]
-initLexer str = [ t | (_,_,t) <- lexer str 1 0 ]
+initLexer str = [ t | (_,_,t) <- lexer str 1 1 ]
lexer :: String -> Int -> Int -> [(Int,Int,Token)]
lexer (c:cs) line column
lexer :: String -> Int -> Int -> [(Int,Int,Token)]
lexer (c:cs) line column
- | c == '\n' = lexer cs (succ line) 0
+ | c == '\n' = lexer cs (succ line) 1
| c == '\"' = lexerSTR cs line (succ column)
| c == '[' = lexerCAT cs "" line (succ column)
| c `elem` "{};-:"
| c == '\"' = lexerSTR cs line (succ column)
| c == '[' = lexerCAT cs "" line (succ column)
| c `elem` "{};-:"