module Data.Geospatial.Geometry.GeoPolygon (
GeoPolygon(..)
, unGeoPolygon
) where
import Data.Geospatial.BasicTypes
import Data.Geospatial.Geometry.Aeson
import Data.Geospatial.GeoPosition
import Data.LinearRing
import Control.Lens ( makeLenses )
import Control.Monad ( mzero )
import Data.Aeson ( FromJSON(..), ToJSON(..), Value(..), Object )
newtype GeoPolygon = GeoPolygon { _unGeoPolygon :: [LinearRing GeoPositionWithoutCRS] } deriving (Show, Eq)
makeLenses ''GeoPolygon
instance ToJSON GeoPolygon where
toJSON = makeGeometryGeoAeson "Polygon" . _unGeoPolygon
instance FromJSON GeoPolygon where
parseJSON (Object o) = readGeometryGeoAeson "Polygon" GeoPolygon o
parseJSON _ = mzero