···

       
41
       
41
       
 
       


     

       
42
       
42
       
 
       
(* Helper to encode storage data as form-encoded body for the API *)

     

       
43
       
43
       
 
       
let encode_storage_update keys_values =

     

       
44
       
44
       
-
       
  (* Build the storage object wrapped in "storage" field as per API *)

     

       
44
       
44
       
+
       
  (* Build the storage object as JSON - the API expects storage={"key": "value"} *)

     

       
45
       
45
       
 
       
  let storage_obj =

     

       
46
       
46
       
 
       
    List.map (fun (k, v) -> (k, `String v)) keys_values

     

       
47
       
47
       
 
       
  in

     

       
48
       
48
       
-
       
  let json_obj = `O [("storage", `O storage_obj)] in

     

       
48
       
48
       
+
       
  let json_obj = `O storage_obj in

     

       
49
       
49
       
 
       


     

       
50
       
50
       
 
       
  (* Convert to JSON string using Ezjsonm *)

     

       
51
       
51
       
 
       
  let json_str = Ezjsonm.to_string json_obj in