From 5665f31a78a44626dc0d622eb8ef814da9e44007 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 15 May 2002 13:28:46 +0000
Subject: [haddock @ 2002-05-15 13:28:46 by simonmar] Patch to add support for
 GHC-style primitive strings ".."#, from Ross Paterson.

---
 src/HsLexer.lhs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/HsLexer.lhs b/src/HsLexer.lhs
index c6026b67..fb4447d3 100644
--- a/src/HsLexer.lhs
+++ b/src/HsLexer.lhs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: HsLexer.lhs,v 1.9 2002/05/15 13:03:02 simonmar Exp $
+-- $Id: HsLexer.lhs,v 1.10 2002/05/15 13:28:46 simonmar Exp $
 --
 -- (c) The GHC Team, 1997-2000
 --
@@ -482,6 +482,7 @@ lexString cont s loc y x = loop "" s x y
             '\\':c:s | isSpace c -> stringGap e s (x+2) y
         	     | otherwise -> (escapeChar (c:s) `thenP` \(e',s,i) _ _ _ _ ->
         		             loop (e':e) s (x+i) y) s loc y x
+            '\"':'#':s  -> cont (PrimString (reverse e)) s loc y (x+2)
             '\"':s{-"-} -> cont (StringTok (reverse e)) s loc y (x+1)
             c:s		-> loop (c:e) s (x+1) y
             []          -> parseError "Improperly terminated string" s loc y x
-- 
cgit v1.2.3