From 364bc6f31e99c211af8fc6e7fa08b410fa833913 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Sun, 5 Apr 2009 22:29:32 +0000
Subject: [PATCH] Made double-star be resolved into a single star when parsing
 a string literal

I should probably do all the other escapes too, but for now I haven't.
---
 frontends/ParseOccam.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/frontends/ParseOccam.hs b/frontends/ParseOccam.hs
index ad51929..4495a0f 100644
--- a/frontends/ParseOccam.hs
+++ b/frontends/ParseOccam.hs
@@ -728,6 +728,8 @@ splitStringLiteral m cs = ssl cs
         = (A.ByteLiteral m ['*', '#', a, b]) : ssl cs
     ssl ('*':'\n':cs)
         = (A.ByteLiteral m $ tail $ dropWhile (/= '*') cs) : ssl cs
+    ssl ('*':'*':cs)
+        = A.ByteLiteral m ['*'] : ssl cs
     ssl ('*':c:cs)
         = (A.ByteLiteral m ['*', c]) : ssl cs
     ssl (c:cs)