From 706e2132e443ed422912264f0401ee607d1d2ef5 Mon Sep 17 00:00:00 2001
From: Chimrod <>
Date: Mon, 23 Dec 2024 16:39:22 +0100
Subject: Found a bug in the string interpretation

---
 lib/qparser/lex_state.ml | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'lib/qparser/lex_state.ml')

diff --git a/lib/qparser/lex_state.ml b/lib/qparser/lex_state.ml
index 4b102b8..2ec1857 100644
--- a/lib/qparser/lex_state.ml
+++ b/lib/qparser/lex_state.ml
@@ -1,6 +1,4 @@
-(** This module provide functions used to parse the strings. 
-
- *)
+(** This module provide functions used to parse the strings. *)
 
 exception Out_of_context
 
@@ -111,8 +109,12 @@ and dQuotedStringWraper : Lexbuf.stringWraper =
     let lexbuf = Lexbuf.buffer buffer in
     match%sedlex lexbuf with
     | single_quote ->
-        Buffer.add_char buf '\'';
-        wrap ~nested:true f buf buffer
+        if nested then (
+          Buffer.add_char buf '\'';
+          wrap ~nested:false f buf buffer)
+        else (
+          Buffer.add_char buf '\'';
+          wrap ~nested:true f buf buffer)
     | double_quote, double_quote ->
         Buffer.add_char buf '"';
         wrap f buf buffer
-- 
cgit v1.2.3