module Data.Geospatial.Geometry.GeoMultiPolygon (
GeoMultiPolygon(..)
, unGeoMultiPolygon
, splitGeoMultiPolygon, mergeGeoPolygons
) where
import Data.Geospatial.BasicTypes
import Data.Geospatial.Geometry.GeoPolygon
import Data.Geospatial.Geometry.Aeson
import Data.LinearRing
import Control.Lens ( makeLenses )
import Control.Monad ( mzero )
import Data.Aeson ( FromJSON(..), ToJSON(..), Value(..), Object )
newtype GeoMultiPolygon = GeoMultiPolygon { _unGeoMultiPolygon :: [[LinearRing GeoPositionWithoutCRS]] } deriving (Show, Eq)
splitGeoMultiPolygon :: GeoMultiPolygon -> [GeoPolygon]
splitGeoMultiPolygon = map GeoPolygon . _unGeoMultiPolygon
mergeGeoPolygons :: [GeoPolygon] -> GeoMultiPolygon
mergeGeoPolygons = GeoMultiPolygon . map _unGeoPolygon
makeLenses ''GeoMultiPolygon
instance ToJSON GeoMultiPolygon where
toJSON = makeGeometryGeoAeson "MultiPolygon" . _unGeoMultiPolygon
instance FromJSON GeoMultiPolygon where
parseJSON (Object o) = readGeometryGeoAeson "MultiPolygon" GeoMultiPolygon o
parseJSON _ = mzero