12 lines
181 B
OCaml
12 lines
181 B
OCaml
|
(* BSD-2-Clause License *)
|
||
|
|
|
||
|
|
type t =
|
||
|
|
{ x : int
|
||
|
|
; y : int
|
||
|
|
}
|
||
|
|
|
||
|
|
let of_jv point =
|
||
|
|
let x = Jv.get point "x" |> Jv.to_int in
|
||
|
|
let y = Jv.get point "y" |> Jv.to_int in
|
||
|
|
{ x; y }
|