Setimp.merge: def of cswap-bend-cli@0.1.0.0
Import: import cswap-bend-cli@0.1.0.0/setimp.bend as Setimp
Lines 377-388 of cswap-bend-cli@0.1.0.0/setimp.bend: https://jend.leeeet.dev/read.txt?path=cswap-bend-cli@0.1.0.0/setimp.bend&start_line=377&end_line=388

import Base
import cswap-bend-cli@0.1.0.0/json.bend as Json

# `over` laid on `base`: objects merge key by key, anything else replaces, and
# null removes the key.
def merge(over: Json.Json, +base: Json.Json) -> Json.Json:
  match over:
    case Json.JObj{f}:
      merge(f, base)
    case Json.JField{+k, +v, t}:
      merge(t, put(k, v, base, merge(v, or_null(Json.get(k, base)))))
    case Json.JNil{}:
      base
    case _:
      over

Uses (4):
  https://jend.leeeet.dev/definition.txt?path=cswap-bend-cli@0.1.0.0/json.bend&name=Json
  https://jend.leeeet.dev/definition.txt?path=cswap-bend-cli@0.1.0.0/json.bend&name=get
  https://jend.leeeet.dev/definition.txt?path=cswap-bend-cli@0.1.0.0/setimp.bend&name=or_null
  https://jend.leeeet.dev/definition.txt?path=cswap-bend-cli@0.1.0.0/setimp.bend&name=put