diff --git a/lib/models/stub/advertisement.ml b/lib/models/stub/advertisement.ml index e656a09..a8c2218 100644 --- a/lib/models/stub/advertisement.ml +++ b/lib/models/stub/advertisement.ml @@ -51,27 +51,28 @@ let to_json a = ;; let from_json json = - { id = Yojson.Basic.Util.(json |> member "id" |> to_int) - ; steamlobbyid = Yojson.Basic.Util.(json |> member "steamlobbyid" |> to_int) - ; goodoldgameslobbyid = Yojson.Basic.Util.(json |> member "goodoldgameslobbyid" |> to_int) - ; xboxsessionid = Yojson.Basic.Util.(json |> member "xboxsessionid" |> to_string) - ; host_profile_id = Yojson.Basic.Util.(json |> member "host_profile_id" |> to_int) - ; state = Yojson.Basic.Util.(json |> member "state" |> to_int) - ; description = Yojson.Basic.Util.(json |> member "description" |> to_string) - ; visible = Yojson.Basic.Util.(json |> member "visible" |> to_int) - ; mapname = Yojson.Basic.Util.(json |> member "mapname" |> to_string) - ; options = Yojson.Basic.Util.(json |> member "options" |> to_string |> Advertisement_options.from_zlib_b64_str) - ; passwordprotected = Yojson.Basic.Util.(json |> member "passwordprotected" |> to_int) - ; maxplayers = Yojson.Basic.Util.(json |> member "maxplayers" |> to_int) - ; slotinfo = Yojson.Basic.Util.(json |> member "slotinfo" |> to_string |> Slot_info.from_zlib_b64_str) - ; matchtype_id = Yojson.Basic.Util.(json |> member "matchtype_id" |> to_int) - ; matchmembers = Yojson.Basic.Util.(json |> member "matchmembers" |> to_list |> List.map Match_member.from_json) - ; observernum = Yojson.Basic.Util.(json |> member "observernum" |> to_int) - ; observermax = Yojson.Basic.Util.(json |> member "observermax" |> to_int) - ; isobservable = Yojson.Basic.Util.(json |> member "isobservable" |> to_int) - ; observerdelay = Yojson.Basic.Util.(json |> member "observerdelay" |> to_int) - ; hasobserverpassword = Yojson.Basic.Util.(json |> member "hasobserverpassword" |> to_int) - ; servicetype = Yojson.Basic.Util.(json |> member "servicetype" |> to_int) - ; relayserver_region = Yojson.Basic.Util.(json |> member "relayserver_region" |> to_string) + let open Yojson.Basic.Util in + { id = json |> member "id" |> to_int + ; steamlobbyid = json |> member "steamlobbyid" |> to_int + ; goodoldgameslobbyid = json |> member "goodoldgameslobbyid" |> to_int + ; xboxsessionid = json |> member "xboxsessionid" |> to_string + ; host_profile_id = json |> member "host_profile_id" |> to_int + ; state = json |> member "state" |> to_int + ; description = json |> member "description" |> to_string + ; visible = json |> member "visible" |> to_int + ; mapname = json |> member "mapname" |> to_string + ; options = json |> member "options" |> to_string |> Advertisement_options.from_zlib_b64_str + ; passwordprotected = json |> member "passwordprotected" |> to_int + ; maxplayers = json |> member "maxplayers" |> to_int + ; slotinfo = json |> member "slotinfo" |> to_string |> Slot_info.from_zlib_b64_str + ; matchtype_id = json |> member "matchtype_id" |> to_int + ; matchmembers = json |> member "matchmembers" |> to_list |> List.map Match_member.from_json + ; observernum = json |> member "observernum" |> to_int + ; observermax = json |> member "observermax" |> to_int + ; isobservable = json |> member "isobservable" |> to_int + ; observerdelay = json |> member "observerdelay" |> to_int + ; hasobserverpassword = json |> member "hasobserverpassword" |> to_int + ; servicetype = json |> member "servicetype" |> to_int + ; relayserver_region = json |> member "relayserver_region" |> to_string } ;;