def parse_trailing_return

qasim-bend-kit@0.1.0.2 · PROOF.bend:135

import Base
import qasim-bend-kit@0.1.0.2/libs/JSON.bend as Json
import qasim-bend-kit@0.1.0.2/proof/JSON_LexWhitespaceProof.bend as LexWhitespaceProof

135def parse_trailing_return(+text: String) -> {Json.parse(text ++ "\r") == Json.parse(text) : Result<&1, &1, Json.Error, Json.Value>}:
136    Equal.cong(List<&2, Json.Lexeme>, ResultValue(),
137        items => Json.assemble(Json.token_list(Json.decode_tree(Json.lex_tree(items)), Nil{}), Json.NeedValue{Json.Top{}}),
138        Json.lex_scan(text ++ "\r", Json.Outside{}, SNil{}, Nil{}),
139        Json.lex_scan(text, Json.Outside{}, SNil{}, Nil{}),
140        LexWhitespaceProof.trailing_return(text, Json.Outside{}, SNil{}, Nil{}))