14 lines
276 B
Standard ML
14 lines
276 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 }
|
|
|
|
let to_jv point =
|
|
Jv.call Global.leaflet "point" [| Jv.of_int point.x; Jv.of_int point.y |]
|