AlphaGitHub
Source/Packages

Observe.Interchange

packages/observability/src/Observe/Interchange.alpha

684 lines44 declarations25.0 KiBSHA-256 3719d431a37a
Download exact fileView at revision426597bda5753d86c4

def · lines 391–400

aosDescriptorCode

Full file
391def aosDescriptorCode =
392  (lambda unrestricted record : (family JSON) .
393    (aosThen
394      (aosNonEmptyTextCode b"descriptor_id" record)
395      (aosThen
396        (naturalSelect
397          (naturalLessOrEqual (bytes-length (aosMemberBytes b"descriptor_id" record)) 256)
398          0
399          13)
400        (aosThen (aosNonEmptyTextCode b"kind" record) (aosObjectCode b"body" record)))))

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.