module Data.Ewkb
( parseByteString
, parseHexByteString
, toByteString
) where
import qualified Data.Binary.Get as BinaryGet
import qualified Data.ByteString.Builder as ByteStringBuilder
import qualified Data.ByteString.Lazy as LazyByteString
import qualified Data.Geospatial as Geospatial
import qualified Data.Hex as Hex
import qualified Data.Internal.Ewkb.Geometry as EwkbGeometry
import qualified Data.Internal.Wkb.Endian as Endian
import qualified Data.Internal.Wkb.Geospatial as WkbGeospatial
parseByteString :: LazyByteString.ByteString -> Either String Geospatial.GeospatialGeometry
parseByteString byteString =
case BinaryGet.runGetOrFail
(WkbGeospatial.getGeospatialGeometry EwkbGeometry.getWkbGeom)
byteString of
Left (_, _, err) -> Left $ "Could not parse ewkb: " ++ err
Right (_, _, geoSpatialGeometry) -> Right geoSpatialGeometry
parseHexByteString :: Hex.Hex -> Either String Geospatial.GeospatialGeometry
parseHexByteString = Hex.safeConvert parseByteString
toByteString :: Endian.EndianType -> EwkbGeometry.SridType -> Geospatial.GeospatialGeometry -> LazyByteString.ByteString
toByteString endianType sridType =
ByteStringBuilder.toLazyByteString . WkbGeospatial.builderGeospatialGeometry
mkBuilder endianType
where mkBuilder eType gType = EwkbGeometry.builderEwkbGeom eType (EwkbGeometry.EwkbGeom gType sridType)