From 7df4f9e78c9213dfb1bb9e423e1d55d2bc01dd6d Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Tue, 10 Oct 2023 12:54:59 +0200
Subject: global-functions: $ParseJson: handle outher curly brackets

---
 global-functions.rsc | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/global-functions.rsc b/global-functions.rsc
index 12d510b..df374b8 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -698,11 +698,16 @@
 # parse JSON into array
 # Warning: This is not a complete parser!
 :set ParseJson do={
-  :local Input [ :toarray $1 ];
+  :local Input [ :tostr $1 ];
 
   :local Return ({});
   :local Skip 0;
 
+  :if ([ :pick $Input 0 ] = "{") do={
+    :set Input [ :pick $Input 1 ([ :len $Input ] - 1) ];
+  }
+  :set Input [ :toarray $Input ];
+
   :for I from=0 to=[ :len $Input ] do={
     :if ($Skip > 0 || $Input->$I = "\n" || $Input->$I = "\r\n") do={
       :if ($Skip > 0) do={
-- 
cgit v1.2.3-54-g00ecf