AlphaGitHub
Source/Packages

Data.JSONAccess

packages/foundation/standard/src/Data/JSONAccess.alpha

1,210 lines73 declarations39.2 KiBSHA-256 1e44e4cc014b
Download exact fileView at revision426597bda5753d86c4

def · lines 1196–1210

jsonWord64

Full file
1196def jsonWord64 =
1197  (lambda unrestricted value : (family JSON) .
1198    (eliminate JSONBytesAccessResult
1199      (lambda unrestricted current : (family JSONBytesAccessResult) . (family JSONWord64AccessResult))
1200      (jsonNumber value)
1201      (branch JSONBytesAccessSucceeded digits .
1202        (nat-eliminate
1203          (lambda unrestricted fits : Nat . (family JSONWord64AccessResult))
1204          (constructor JSONWord64AccessResult JSONWord64AccessFailed
1205            (constructor JSONErrorCode JSONNumericRangeUnsupported))
1206          (lambda unrestricted p : Nat .
1207            (lambda unrestricted unused : (family JSONWord64AccessResult) . (jsonWord64Digits digits)))
1208          (jsonWord64DigitsFit digits)))
1209      (branch JSONBytesAccessFailed code .
1210        (constructor JSONWord64AccessResult JSONWord64AccessFailed code))))

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.