- fix typo causing qq(} $foo) to be parsed as q(} $foo)

1 files changed, 1 insertions, 1 deletions

diff --git a/src/lexer.mll b/src/lexer.mll
index 42f0ddb..fdb9420 100644
--- a/src/lexer.mll
+++ b/src/lexer.mll
@@ -844,7 +844,7 @@ and qqstring = parse
     if lexeme_char lexbuf 0 = !delimit_char_close then
       if !string_nestness <> 0 then (decr string_nestness; next qqstring lexbuf)
       else ()
-    else next qstring lexbuf
+    else next qqstring lexbuf
   }
 | pattern_open {
     if lexeme_char lexbuf 0 = !delimit_char_open then incr string_nestness;