client_info.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"

interface val ClientInfo
  fun val name(): String
  fun val version(): (String | None)

primitive ParseClientInfo
  fun apply(obj: json.Object val): (ClientInfo | String) =>
    let name': String =
      try
        match obj("name")?
        | let str: String =>
          str.clone()
        else
          return "clientInfo.name must be of type string"
        end
      else
        return "clientInfo must contain 'name'"
      end
    let version': (String | None) =
      try
        match obj("version")?
        | let str: String =>
          str.clone()
        else
          return "clientInfo.version must be of type string"
        end
      end
    object val is ClientInfo
      fun val name(): String => name'
      fun val version(): (String | None) => version'
    end