def parse_trailing_tab

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

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

128def parse_trailing_tab(+text: String) -> {Json.parse(text ++ "\t") == Json.parse(text) : Result<&1, &1, Json.Error, Json.Value>}:
129    Equal.cong(List<&2, Json.Lexeme>, ResultValue(),
130        items => Json.assemble(Json.token_list(Json.decode_tree(Json.lex_tree(items)), Nil{}), Json.NeedValue{Json.Top{}}),
131        Json.lex_scan(text ++ "\t", Json.Outside{}, SNil{}, Nil{}),
132        Json.lex_scan(text, Json.Outside{}, SNil{}, Nil{}),
133        LexWhitespaceProof.trailing_tab(text, Json.Outside{}, SNil{}, Nil{}))