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.
2009-04-05 22:29:32 +00:00 · 2009-04-05 22:29:32 +00:00 · 364bc6f31e
commit 364bc6f31e
parent f8103c1d2d
1 changed files with 2 additions and 0 deletions
--- 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)