AlphaGitHub
Source/Packages

Observe.Value

packages/observability/src/Observe/Value.alpha

564 lines114 declarations29.3 KiBSHA-256 09f8c02938ee
Download exact fileView at revision426597bda5753d86c4

def · lines 472–480

aosDecodeWithFuel

Full file
The value decoder, its nesting bounded by `fuel` (the stream's declared depth limit bounds it first: a tagged level is two JSON levels).
472def aosDecodeWithFuel =
473  (lambda unrestricted fuel : Nat .
474    (nat-eliminate
475      (lambda unrestricted current : Nat . (pi unrestricted value : (family JSON) . (family AosDecoded)))
476      (lambda unrestricted value : (family JSON) . aosRejected)
477      (lambda unrestricted predecessor : Nat .
478        (lambda unrestricted inner : (pi unrestricted value : (family JSON) . (family AosDecoded)) .
479          (lambda unrestricted value : (family JSON) . (aosDecodeTagged inner value))))
480      fuel))

The compiler supplied declaration spans and resolved links from this source snapshot. This page does not assert that this file belongs to a checked closure.