def parse_trailing_newline

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

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

142def parse_trailing_newline(+text: String) -> {Json.parse(text ++ "\n") == Json.parse(text) : Result<&1, &1, Json.Error, Json.Value>}:
143    Equal.cong(List<&2, Json.Lexeme>, ResultValue(),
144        items => Json.assemble(Json.token_list(Json.decode_tree(Json.lex_tree(items)), Nil{}), Json.NeedValue{Json.Top{}}),
145        Json.lex_scan(text ++ "\n", Json.Outside{}, SNil{}, Nil{}),
146        Json.lex_scan(text, Json.Outside{}, SNil{}, Nil{}),
147        LexWhitespaceProof.trailing_newline(text, Json.Outside{}, SNil{}, Nil{}))