Yojsonを使用してJSONオブジェクトを更新するにはどうすればよいですか？

Question

いくつかの例を読んだ後、それはYojson.Basic.from_stringまたはfrom_channelでJSONオブジェクトを構築するのは簡単です。

他の面では、我々はまた、簡単にpretty_to_stringによって文字列にJSONオブジェクトを変換することができます。

しかし、update JSONオブジェクトは、例えば以下のように入力パラメータがあり、注意が必要です：

{ 
    "content": "test content", 
    "base" : { 
     "version": 1, 
     "id" : "a001" 
    } 
} 

私はそれで"id"を更新し、新しいJSONオブジェクトを返すようにしたい：

{ 
    "content": "test content", 
    "base" : { 
     "version": 1, 
     "id" : "a002" 
    } 
} 

私はJSONオブジェクトを更新する関数を記述しようとしました：

上記のような関数を書くことがYojsonのJSONオブジェクトを更新する最良の方法であるかどうか疑問に思っていましたか？

Answer 1

「バグ」の意味が明確ではありませんが、`Assocにはstring * jsonがなく、(string * json) listになります。これはあなたの`Assoc例では、あなたがすべきことを意味List.map：

| `Assoc pairs -> 
    List.map pairs ~f:(fun (okey, ovalue) -> 
    if okey = key then 
     key, new_value 
    else 
     okey, aux ovalue) 

あなたはこの機能を考慮し、名前を付けたいことがあります。より完全な質問については