X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fhpc%2FHpcLexer.hs;h=feeb35a8ff6bcfb2a3b1cc7afe025522187c14f6;hb=04a0cea56816d1d9a2407c1c087bd864785aa44d;hp=db886a38ac0477b1a7a49b1fef85ac4877744ab5;hpb=eb546347e5eace34612005c151121fcd1f32b257;p=ghc-hetmet.git

diff --git a/utils/hpc/HpcLexer.hs b/utils/hpc/HpcLexer.hs
index db886a3..feeb35a 100644
--- a/utils/hpc/HpcLexer.hs
+++ b/utils/hpc/HpcLexer.hs
@@ -11,11 +11,11 @@ data 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
-  | 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` "{};-:"