Json

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
use "json"

interface val JsonConverter[A: Any #share]
  fun apply(json: JsonNav, creds: Credentials): A ?

primitive JsonTypeString
  """Convert a JsonNav's value to its JSON string representation for error messages."""
  fun apply(json: JsonNav): String =>
    match \exhaustive\ json.json()
    | let o: JsonObject => o.string()
    | let a: JsonArray => a.string()
    | let s: String => s
    | let i: I64 => i.string()
    | let f: F64 => f.string()
    | let b: Bool => b.string()
    | None => "null"
    | JsonNotFound => "JsonNotFound"
    end