G.Geometrytype json = jsonmodule Position : sig ... endmodule Point : sig ... endmodule MultiPoint : sig ... endmodule LineString : sig ... endmodule MultiLineString : sig ... endmodule Polygon : sig ... endmodule MultiPolygon : sig ... endtype t = | Point of Point.t |
| MultiPoint of MultiPoint.t |
| LineString of LineString.t |
| MultiLineString of MultiLineString.t |
| Polygon of Polygon.t |
| MultiPolygon of MultiPolygon.t |
| Collection of t list |