fix: execute immediate

OCamlPro · Oct 15, 2024 · 6127b0a · 6127b0a
1 parent c470ce7
commit 6127b0a
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/lsp/sql_preproc/data_gestion.ml b/src/lsp/sql_preproc/data_gestion.ml
@@ -162,7 +162,14 @@ let transform_stm map (_, stm) filename =
       | [ Sql_ast.SqlVarToken (CobolVar (CobVarNotNull _)) ] -> ([], map)
       | _ ->
         let ws, map =
-          create_new_var (Format.asprintf "%a" Sql_ast.Printer.pp_sql sql) ()
+          let content =
+            let content = Format.asprintf "%a" Sql_ast.Printer.pp_sql sql in
+            if String.starts_with ~prefix:"'" content ||
+               String.starts_with ~prefix:"\"" content
+            then String.sub content 1 (String.length content - 2)
+            else content
+          in
+          create_new_var content ()
         in
         (ws, map) )
     | Rollback (rb_work_or_tran, rb_args) -> begin