AlphaGitHub
Source/Packages

Data.JSON

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

2,617 lines251 declarations113.9 KiBSHA-256 bd63da5ed186
Download exact fileView at revision426597bda5753d86c4

def · lines 527–550

jsonStringPrepend

Full file
527def jsonStringPrepend =
528  (lambda unrestricted prefix : Bytes .
529    (lambda unrestricted suffix : (family JSONStringParseResult) .
530      (eliminate
531        JSONStringParseResult
532        (lambda unrestricted current : (family JSONStringParseResult) .
533          (family JSONStringParseResult))
534        suffix
535        (branch
536          JSONStringParsed
537          builder
538          remaining
539          .
540          (constructor
541            JSONStringParseResult
542            JSONStringParsed
543            (bytes-builder-append (bytes-builder-chunk prefix) builder)
544            remaining))
545        (branch
546          JSONStringParseFailed
547          code
548          remaining
549          .
550          (constructor JSONStringParseResult JSONStringParseFailed code remaining)))))

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.