11 lines
181 B
Standard ML
11 lines
181 B
Standard ML
(* 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 }
|