response_json.pony

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
use json = "json"

primitive ResponseJSON
  """
  Parse the body of an `HTTPResponse` as JSON.

  Returns the parsed `JSONValue` on success, or `JSONParseError` if the body
  is not valid JSON. This is deliberately minimal — users then use
  `JSONNav`, `JSONLens`, pattern matching, or whatever access pattern
  they prefer.

  ```pony
  use json = "json"

  match ResponseJSON(response)
  | let value: json.JSONValue =>
    // work with the parsed JSON
  | let err: json.JSONParseError =>
    env.out.print("Parse error: " + err.string())
  end
  ```
  """

  fun apply(response: HTTPResponse): (json.JSONValue | json.JSONParseError) =>
    """
    Parse `response.body` as JSON.

    Converts the body bytes to a `String` and parses with `JSONParser.parse()`.
    Returns `JSONParseError` if the body is empty or contains invalid JSON.
    """
    let body_str = String.from_array(response.body)
    json.JSONParser.parse(body_str)