From 7e26eb05a84f5245ff3e5b1a6805d1fcc5cce127 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 6 Sep 1999 11:53:18 +0000
Subject: [PATCH] [project @ 1999-09-06 11:53:18 by simonmar] fix line number
 discrepancy w/ string gaps.

---
 ghc/compiler/parser/Lex.lhs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index 4ee690be8445..ba2ed1fd6315 100644
--- a/ghc/compiler/parser/Lex.lhs
+++ b/ghc/compiler/parser/Lex.lhs
@@ -627,9 +627,9 @@ lex_string cont glaexts s buf
 
 	-- ignore \& in a string, deal with string gaps
 	'\\'# | next_ch `eqChar#` '&'# 
-		-> lex_string cont glaexts s (setCurrentPos# buf 2#)
+		-> lex_string cont glaexts s buf'
 	      | is_space next_ch
-		-> lex_stringgap cont glaexts s buf'
+		-> lex_stringgap cont glaexts s (incLexeme buf)
 
 	    where next_ch = lookAhead# buf 1#
 		  buf' = setCurrentPos# buf 2#
-- 
GitLab