From dc0dba41e5eade93cd64154a4bc26dff602519bc Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 15 Jan 1999 10:21:43 +0000
Subject: [PATCH] [project @ 1999-01-15 10:21:43 by sof] lexLitChar: '\DEL'
wasn't being lexed properly
---
ghc/lib/std/PrelRead.lhs | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/ghc/lib/std/PrelRead.lhs b/ghc/lib/std/PrelRead.lhs
index a4e394b839e6..1ef7b43d3cc6 100644
--- a/ghc/lib/std/PrelRead.lhs
+++ b/ghc/lib/std/PrelRead.lhs
@@ -246,11 +246,13 @@ lexLitChar ('\\':s) = do
lexEsc _ = mzero
fromAsciiLab (x:y:z:ls) | isUpper y && (isUpper z || isDigit z) &&
- [x,y,z] `elem` asciiTab = return ([x,y,z], ls)
+ [x,y,z] `elem` asciiEscTab = return ([x,y,z], ls)
fromAsciiLab (x:y:ls) | isUpper y &&
- [x,y] `elem` asciiTab = return ([x,y], ls)
- fromAsciiLab _ = mzero
+ [x,y] `elem` asciiEscTab = return ([x,y], ls)
+ fromAsciiLab _ = mzero
+ asciiEscTab = "DEL" : asciiTab
+
lexLitChar (c:s) = return ([c],s)
lexLitChar "" = mzero
--
GitLab