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 406–410

aosDecodeFloat

Full file
a float's exact bit pattern: `width` lowercase hex digits
406def aosDecodeFloat =
407  (lambda unrestricted width : Nat . (lambda unrestricted value : (family JSON) .
408    (let unrestricted bits = (aosMemberBytes b"bits" value)
409      in (aosWhen (naturalAnd (aosHasExactly2 b"t" b"bits" value) (naturalAnd (aosMemberIsString b"bits" value) (aosIsHexOfWidth width bits)))
410           (aosChoose (family AosValue) (naturalEqual width 8) (constructor AosValue AosF32 bits) (constructor AosValue AosF64 bits))))))

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.