def parse_trailing_space

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

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

121def parse_trailing_space(+text: String) -> {Json.parse(text ++ " ") == Json.parse(text) : Result<&1, &1, Json.Error, Json.Value>}:
122    Equal.cong(List<&2, Json.Lexeme>, ResultValue(),
123        items => Json.assemble(Json.token_list(Json.decode_tree(Json.lex_tree(items)), Nil{}), Json.NeedValue{Json.Top{}}),
124        Json.lex_scan(text ++ " ", Json.Outside{}, SNil{}, Nil{}),
125        Json.lex_scan(text, Json.Outside{}, SNil{}, Nil{}),
126        LexWhitespaceProof.trailing_space(text, Json.Outside{}, SNil{}, Nil{}))