From 074312ef088d46102272c41de8debc1dfc515d92 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Thu, 3 Dec 2009 13:55:20 +0000
Subject: [PATCH] Fix HPC column numbers, following the column number changes
in GHC
---
HpcLexer.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/HpcLexer.hs b/HpcLexer.hs
index db886a3..feeb35a 100644
--- a/HpcLexer.hs
+++ b/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` "{};-:"
--
GitLab