{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE TemplateHaskell #-}
module Data.Geospatial.Internal.Geometry.GeoMultiPoint (
GeoMultiPoint(..)
, unGeoMultiPoint
, splitGeoMultiPoint, mergeGeoPoints
) where
import Data.Geospatial.Internal.BasicTypes
import Data.Geospatial.Internal.Geometry.Aeson
import Data.Geospatial.Internal.Geometry.GeoPoint
import Control.DeepSeq
import Control.Lens (makeLenses)
import Control.Monad (mzero)
import qualified Data.Aeson as Aeson
import qualified Data.Vector as Vector
import GHC.Generics (Generic)
newtype GeoMultiPoint = GeoMultiPoint { _unGeoMultiPoint :: Vector.Vector GeoPositionWithoutCRS } deriving (Show, Eq, Generic, NFData)
makeLenses ''GeoMultiPoint
splitGeoMultiPoint:: GeoMultiPoint -> Vector.Vector GeoPoint
splitGeoMultiPoint = Vector.map GeoPoint . _unGeoMultiPoint
mergeGeoPoints :: Vector.Vector GeoPoint -> GeoMultiPoint
mergeGeoPoints = GeoMultiPoint . Vector.map _unGeoPoint
instance Aeson.ToJSON GeoMultiPoint where
toJSON = makeGeometryGeoAeson "MultiPoint" . _unGeoMultiPoint
instance Aeson.FromJSON GeoMultiPoint where
parseJSON (Aeson.Object o) = readGeometryGeoAeson "MultiPoint" GeoMultiPoint o
parseJSON _ = mzero