module Network.Google.MapsEngine.Types.Sum where
import Network.Google.Prelude
data RasterProcessingStatus
= Complete
| Failed
| NotReady
| Processing
| Ready
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable RasterProcessingStatus
instance FromHttpApiData RasterProcessingStatus where
parseQueryParam = \case
"complete" -> Right Complete
"failed" -> Right Failed
"notReady" -> Right NotReady
"processing" -> Right Processing
"ready" -> Right Ready
x -> Left ("Unable to parse RasterProcessingStatus from: " <> x)
instance ToHttpApiData RasterProcessingStatus where
toQueryParam = \case
Complete -> "complete"
Failed -> "failed"
NotReady -> "notReady"
Processing -> "processing"
Ready -> "ready"
instance FromJSON RasterProcessingStatus where
parseJSON = parseJSONText "RasterProcessingStatus"
instance ToJSON RasterProcessingStatus where
toJSON = toJSONText
data LayerProcessingStatus
= LPSComplete
| LPSFailed
| LPSNotReady
| LPSProcessing
| LPSReady
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable LayerProcessingStatus
instance FromHttpApiData LayerProcessingStatus where
parseQueryParam = \case
"complete" -> Right LPSComplete
"failed" -> Right LPSFailed
"notReady" -> Right LPSNotReady
"processing" -> Right LPSProcessing
"ready" -> Right LPSReady
x -> Left ("Unable to parse LayerProcessingStatus from: " <> x)
instance ToHttpApiData LayerProcessingStatus where
toQueryParam = \case
LPSComplete -> "complete"
LPSFailed -> "failed"
LPSNotReady -> "notReady"
LPSProcessing -> "processing"
LPSReady -> "ready"
instance FromJSON LayerProcessingStatus where
parseJSON = parseJSONText "LayerProcessingStatus"
instance ToJSON LayerProcessingStatus where
toJSON = toJSONText
data ScaledShapeShape
= Circle
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ScaledShapeShape
instance FromHttpApiData ScaledShapeShape where
parseQueryParam = \case
"circle" -> Right Circle
x -> Left ("Unable to parse ScaledShapeShape from: " <> x)
instance ToHttpApiData ScaledShapeShape where
toQueryParam = \case
Circle -> "circle"
instance FromJSON ScaledShapeShape where
parseJSON = parseJSONText "ScaledShapeShape"
instance ToJSON ScaledShapeShape where
toJSON = toJSONText
data GeoJSONMultiLineStringType
= MultiLineString
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable GeoJSONMultiLineStringType
instance FromHttpApiData GeoJSONMultiLineStringType where
parseQueryParam = \case
"MultiLineString" -> Right MultiLineString
x -> Left ("Unable to parse GeoJSONMultiLineStringType from: " <> x)
instance ToHttpApiData GeoJSONMultiLineStringType where
toQueryParam = \case
MultiLineString -> "MultiLineString"
instance FromJSON GeoJSONMultiLineStringType where
parseJSON = parseJSONText "GeoJSONMultiLineStringType"
instance ToJSON GeoJSONMultiLineStringType where
toJSON = toJSONText
data PermissionRole
= Owner
| Reader
| Viewer
| Writer
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable PermissionRole
instance FromHttpApiData PermissionRole where
parseQueryParam = \case
"owner" -> Right Owner
"reader" -> Right Reader
"viewer" -> Right Viewer
"writer" -> Right Writer
x -> Left ("Unable to parse PermissionRole from: " <> x)
instance ToHttpApiData PermissionRole where
toQueryParam = \case
Owner -> "owner"
Reader -> "reader"
Viewer -> "viewer"
Writer -> "writer"
instance FromJSON PermissionRole where
parseJSON = parseJSONText "PermissionRole"
instance ToJSON PermissionRole where
toJSON = toJSONText
data AcquisitionTimePrecision
= Day
| Hour
| Minute
| Month
| Second
| Year
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable AcquisitionTimePrecision
instance FromHttpApiData AcquisitionTimePrecision where
parseQueryParam = \case
"day" -> Right Day
"hour" -> Right Hour
"minute" -> Right Minute
"month" -> Right Month
"second" -> Right Second
"year" -> Right Year
x -> Left ("Unable to parse AcquisitionTimePrecision from: " <> x)
instance ToHttpApiData AcquisitionTimePrecision where
toQueryParam = \case
Day -> "day"
Hour -> "hour"
Minute -> "minute"
Month -> "month"
Second -> "second"
Year -> "year"
instance FromJSON AcquisitionTimePrecision where
parseJSON = parseJSONText "AcquisitionTimePrecision"
instance ToJSON AcquisitionTimePrecision where
toJSON = toJSONText
data ScalingFunctionScalingType
= Linear
| Sqrt
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ScalingFunctionScalingType
instance FromHttpApiData ScalingFunctionScalingType where
parseQueryParam = \case
"linear" -> Right Linear
"sqrt" -> Right Sqrt
x -> Left ("Unable to parse ScalingFunctionScalingType from: " <> x)
instance ToHttpApiData ScalingFunctionScalingType where
toQueryParam = \case
Linear -> "linear"
Sqrt -> "sqrt"
instance FromJSON ScalingFunctionScalingType where
parseJSON = parseJSONText "ScalingFunctionScalingType"
instance ToJSON ScalingFunctionScalingType where
toJSON = toJSONText
data AssetsListRole
= ALROwner
| ALRReader
| ALRWriter
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable AssetsListRole
instance FromHttpApiData AssetsListRole where
parseQueryParam = \case
"owner" -> Right ALROwner
"reader" -> Right ALRReader
"writer" -> Right ALRWriter
x -> Left ("Unable to parse AssetsListRole from: " <> x)
instance ToHttpApiData AssetsListRole where
toQueryParam = \case
ALROwner -> "owner"
ALRReader -> "reader"
ALRWriter -> "writer"
instance FromJSON AssetsListRole where
parseJSON = parseJSONText "AssetsListRole"
instance ToJSON AssetsListRole where
toJSON = toJSONText
data RastersListProcessingStatus
= RLPSComplete
| RLPSFailed
| RLPSNotReady
| RLPSProcessing
| RLPSReady
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable RastersListProcessingStatus
instance FromHttpApiData RastersListProcessingStatus where
parseQueryParam = \case
"complete" -> Right RLPSComplete
"failed" -> Right RLPSFailed
"notReady" -> Right RLPSNotReady
"processing" -> Right RLPSProcessing
"ready" -> Right RLPSReady
x -> Left ("Unable to parse RastersListProcessingStatus from: " <> x)
instance ToHttpApiData RastersListProcessingStatus where
toQueryParam = \case
RLPSComplete -> "complete"
RLPSFailed -> "failed"
RLPSNotReady -> "notReady"
RLPSProcessing -> "processing"
RLPSReady -> "ready"
instance FromJSON RastersListProcessingStatus where
parseJSON = parseJSONText "RastersListProcessingStatus"
instance ToJSON RastersListProcessingStatus where
toJSON = toJSONText
data LayersListProcessingStatus
= LLPSComplete
| LLPSFailed
| LLPSNotReady
| LLPSProcessing
| LLPSReady
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable LayersListProcessingStatus
instance FromHttpApiData LayersListProcessingStatus where
parseQueryParam = \case
"complete" -> Right LLPSComplete
"failed" -> Right LLPSFailed
"notReady" -> Right LLPSNotReady
"processing" -> Right LLPSProcessing
"ready" -> Right LLPSReady
x -> Left ("Unable to parse LayersListProcessingStatus from: " <> x)
instance ToHttpApiData LayersListProcessingStatus where
toQueryParam = \case
LLPSComplete -> "complete"
LLPSFailed -> "failed"
LLPSNotReady -> "notReady"
LLPSProcessing -> "processing"
LLPSReady -> "ready"
instance FromJSON LayersListProcessingStatus where
parseJSON = parseJSONText "LayersListProcessingStatus"
instance ToJSON LayersListProcessingStatus where
toJSON = toJSONText
data RasterCollectionsRastersListRole
= RCRLROwner
| RCRLRReader
| RCRLRWriter
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable RasterCollectionsRastersListRole
instance FromHttpApiData RasterCollectionsRastersListRole where
parseQueryParam = \case
"owner" -> Right RCRLROwner
"reader" -> Right RCRLRReader
"writer" -> Right RCRLRWriter
x -> Left ("Unable to parse RasterCollectionsRastersListRole from: " <> x)
instance ToHttpApiData RasterCollectionsRastersListRole where
toQueryParam = \case
RCRLROwner -> "owner"
RCRLRReader -> "reader"
RCRLRWriter -> "writer"
instance FromJSON RasterCollectionsRastersListRole where
parseJSON = parseJSONText "RasterCollectionsRastersListRole"
instance ToJSON RasterCollectionsRastersListRole where
toJSON = toJSONText
data GeoJSONMultiPolygonType
= MultiPolygon
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable GeoJSONMultiPolygonType
instance FromHttpApiData GeoJSONMultiPolygonType where
parseQueryParam = \case
"MultiPolygon" -> Right MultiPolygon
x -> Left ("Unable to parse GeoJSONMultiPolygonType from: " <> x)
instance ToHttpApiData GeoJSONMultiPolygonType where
toQueryParam = \case
MultiPolygon -> "MultiPolygon"
instance FromJSON GeoJSONMultiPolygonType where
parseJSON = parseJSONText "GeoJSONMultiPolygonType"
instance ToJSON GeoJSONMultiPolygonType where
toJSON = toJSONText
data GeoJSONMultiPointType
= MultiPoint
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable GeoJSONMultiPointType
instance FromHttpApiData GeoJSONMultiPointType where
parseQueryParam = \case
"MultiPoint" -> Right MultiPoint
x -> Left ("Unable to parse GeoJSONMultiPointType from: " <> x)
instance ToHttpApiData GeoJSONMultiPointType where
toQueryParam = \case
MultiPoint -> "MultiPoint"
instance FromJSON GeoJSONMultiPointType where
parseJSON = parseJSONText "GeoJSONMultiPointType"
instance ToJSON GeoJSONMultiPointType where
toJSON = toJSONText
data PublishedLayerLayerType
= Image
| Vector
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable PublishedLayerLayerType
instance FromHttpApiData PublishedLayerLayerType where
parseQueryParam = \case
"image" -> Right Image
"vector" -> Right Vector
x -> Left ("Unable to parse PublishedLayerLayerType from: " <> x)
instance ToHttpApiData PublishedLayerLayerType where
toQueryParam = \case
Image -> "image"
Vector -> "vector"
instance FromJSON PublishedLayerLayerType where
parseJSON = parseJSONText "PublishedLayerLayerType"
instance ToJSON PublishedLayerLayerType where
toJSON = toJSONText
data TablesListProcessingStatus
= TLPSComplete
| TLPSFailed
| TLPSNotReady
| TLPSProcessing
| TLPSReady
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable TablesListProcessingStatus
instance FromHttpApiData TablesListProcessingStatus where
parseQueryParam = \case
"complete" -> Right TLPSComplete
"failed" -> Right TLPSFailed
"notReady" -> Right TLPSNotReady
"processing" -> Right TLPSProcessing
"ready" -> Right TLPSReady
x -> Left ("Unable to parse TablesListProcessingStatus from: " <> x)
instance ToHttpApiData TablesListProcessingStatus where
toQueryParam = \case
TLPSComplete -> "complete"
TLPSFailed -> "failed"
TLPSNotReady -> "notReady"
TLPSProcessing -> "processing"
TLPSReady -> "ready"
instance FromJSON TablesListProcessingStatus where
parseJSON = parseJSONText "TablesListProcessingStatus"
instance ToJSON TablesListProcessingStatus where
toJSON = toJSONText
data LayerLayerType
= LLTImage
| LLTVector
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable LayerLayerType
instance FromHttpApiData LayerLayerType where
parseQueryParam = \case
"image" -> Right LLTImage
"vector" -> Right LLTVector
x -> Left ("Unable to parse LayerLayerType from: " <> x)
instance ToHttpApiData LayerLayerType where
toQueryParam = \case
LLTImage -> "image"
LLTVector -> "vector"
instance FromJSON LayerLayerType where
parseJSON = parseJSONText "LayerLayerType"
instance ToJSON LayerLayerType where
toJSON = toJSONText
data PermissionType
= Anyone
| Group
| User
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable PermissionType
instance FromHttpApiData PermissionType where
parseQueryParam = \case
"anyone" -> Right Anyone
"group" -> Right Group
"user" -> Right User
x -> Left ("Unable to parse PermissionType from: " <> x)
instance ToHttpApiData PermissionType where
toQueryParam = \case
Anyone -> "anyone"
Group -> "group"
User -> "user"
instance FromJSON PermissionType where
parseJSON = parseJSONText "PermissionType"
instance ToJSON PermissionType where
toJSON = toJSONText
data MapProcessingStatus
= MPSComplete
| MPSFailed
| MPSNotReady
| MPSProcessing
| MPSReady
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable MapProcessingStatus
instance FromHttpApiData MapProcessingStatus where
parseQueryParam = \case
"complete" -> Right MPSComplete
"failed" -> Right MPSFailed
"notReady" -> Right MPSNotReady
"processing" -> Right MPSProcessing
"ready" -> Right MPSReady
x -> Left ("Unable to parse MapProcessingStatus from: " <> x)
instance ToHttpApiData MapProcessingStatus where
toQueryParam = \case
MPSComplete -> "complete"
MPSFailed -> "failed"
MPSNotReady -> "notReady"
MPSProcessing -> "processing"
MPSReady -> "ready"
instance FromJSON MapProcessingStatus where
parseJSON = parseJSONText "MapProcessingStatus"
instance ToJSON MapProcessingStatus where
toJSON = toJSONText
data MapsGetVersion
= Draft
| Published
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable MapsGetVersion
instance FromHttpApiData MapsGetVersion where
parseQueryParam = \case
"draft" -> Right Draft
"published" -> Right Published
x -> Left ("Unable to parse MapsGetVersion from: " <> x)
instance ToHttpApiData MapsGetVersion where
toQueryParam = \case
Draft -> "draft"
Published -> "published"
instance FromJSON MapsGetVersion where
parseJSON = parseJSONText "MapsGetVersion"
instance ToJSON MapsGetVersion where
toJSON = toJSONText
data TablesListRole
= TLROwner
| TLRReader
| TLRWriter
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable TablesListRole
instance FromHttpApiData TablesListRole where
parseQueryParam = \case
"owner" -> Right TLROwner
"reader" -> Right TLRReader
"writer" -> Right TLRWriter
x -> Left ("Unable to parse TablesListRole from: " <> x)
instance ToHttpApiData TablesListRole where
toQueryParam = \case
TLROwner -> "owner"
TLRReader -> "reader"
TLRWriter -> "writer"
instance FromJSON TablesListRole where
parseJSON = parseJSONText "TablesListRole"
instance ToJSON TablesListRole where
toJSON = toJSONText
data VectorStyleType
= VSTDisplayRule
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable VectorStyleType
instance FromHttpApiData VectorStyleType where
parseQueryParam = \case
"displayRule" -> Right VSTDisplayRule
x -> Left ("Unable to parse VectorStyleType from: " <> x)
instance ToHttpApiData VectorStyleType where
toQueryParam = \case
VSTDisplayRule -> "displayRule"
instance FromJSON VectorStyleType where
parseJSON = parseJSONText "VectorStyleType"
instance ToJSON VectorStyleType where
toJSON = toJSONText
data GeoJSONLineStringType
= LineString
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable GeoJSONLineStringType
instance FromHttpApiData GeoJSONLineStringType where
parseQueryParam = \case
"LineString" -> Right LineString
x -> Left ("Unable to parse GeoJSONLineStringType from: " <> x)
instance ToHttpApiData GeoJSONLineStringType where
toQueryParam = \case
LineString -> "LineString"
instance FromJSON GeoJSONLineStringType where
parseJSON = parseJSONText "GeoJSONLineStringType"
instance ToJSON GeoJSONLineStringType where
toJSON = toJSONText
data LayerPublishingStatus
= LPSNotPublished
| LPSPublished
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable LayerPublishingStatus
instance FromHttpApiData LayerPublishingStatus where
parseQueryParam = \case
"notPublished" -> Right LPSNotPublished
"published" -> Right LPSPublished
x -> Left ("Unable to parse LayerPublishingStatus from: " <> x)
instance ToHttpApiData LayerPublishingStatus where
toQueryParam = \case
LPSNotPublished -> "notPublished"
LPSPublished -> "published"
instance FromJSON LayerPublishingStatus where
parseJSON = parseJSONText "LayerPublishingStatus"
instance ToJSON LayerPublishingStatus where
toJSON = toJSONText
data MapKmlLinkType
= KmlLink
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable MapKmlLinkType
instance FromHttpApiData MapKmlLinkType where
parseQueryParam = \case
"kmlLink" -> Right KmlLink
x -> Left ("Unable to parse MapKmlLinkType from: " <> x)
instance ToHttpApiData MapKmlLinkType where
toQueryParam = \case
KmlLink -> "kmlLink"
instance FromJSON MapKmlLinkType where
parseJSON = parseJSONText "MapKmlLinkType"
instance ToJSON MapKmlLinkType where
toJSON = toJSONText
data LayerDatasourceType
= LDTImage
| LDTTable
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable LayerDatasourceType
instance FromHttpApiData LayerDatasourceType where
parseQueryParam = \case
"image" -> Right LDTImage
"table" -> Right LDTTable
x -> Left ("Unable to parse LayerDatasourceType from: " <> x)
instance ToHttpApiData LayerDatasourceType where
toQueryParam = \case
LDTImage -> "image"
LDTTable -> "table"
instance FromJSON LayerDatasourceType where
parseJSON = parseJSONText "LayerDatasourceType"
instance ToJSON LayerDatasourceType where
toJSON = toJSONText
data GeoJSONGeometryCollectionType
= GeometryCollection
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable GeoJSONGeometryCollectionType
instance FromHttpApiData GeoJSONGeometryCollectionType where
parseQueryParam = \case
"GeometryCollection" -> Right GeometryCollection
x -> Left ("Unable to parse GeoJSONGeometryCollectionType from: " <> x)
instance ToHttpApiData GeoJSONGeometryCollectionType where
toQueryParam = \case
GeometryCollection -> "GeometryCollection"
instance FromJSON GeoJSONGeometryCollectionType where
parseJSON = parseJSONText "GeoJSONGeometryCollectionType"
instance ToJSON GeoJSONGeometryCollectionType where
toJSON = toJSONText
data GeoJSONPointType
= Point
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable GeoJSONPointType
instance FromHttpApiData GeoJSONPointType where
parseQueryParam = \case
"Point" -> Right Point
x -> Left ("Unable to parse GeoJSONPointType from: " <> x)
instance ToHttpApiData GeoJSONPointType where
toQueryParam = \case
Point -> "Point"
instance FromJSON GeoJSONPointType where
parseJSON = parseJSONText "GeoJSONPointType"
instance ToJSON GeoJSONPointType where
toJSON = toJSONText
data GeoJSONPolygonType
= Polygon
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable GeoJSONPolygonType
instance FromHttpApiData GeoJSONPolygonType where
parseQueryParam = \case
"Polygon" -> Right Polygon
x -> Left ("Unable to parse GeoJSONPolygonType from: " <> x)
instance ToHttpApiData GeoJSONPolygonType where
toQueryParam = \case
Polygon -> "Polygon"
instance FromJSON GeoJSONPolygonType where
parseJSON = parseJSONText "GeoJSONPolygonType"
instance ToJSON GeoJSONPolygonType where
toJSON = toJSONText
data LayersGetVersion
= LGVDraft
| LGVPublished
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable LayersGetVersion
instance FromHttpApiData LayersGetVersion where
parseQueryParam = \case
"draft" -> Right LGVDraft
"published" -> Right LGVPublished
x -> Left ("Unable to parse LayersGetVersion from: " <> x)
instance ToHttpApiData LayersGetVersion where
toQueryParam = \case
LGVDraft -> "draft"
LGVPublished -> "published"
instance FromJSON LayersGetVersion where
parseJSON = parseJSONText "LayersGetVersion"
instance ToJSON LayersGetVersion where
toJSON = toJSONText
data MapLayerType
= MLTLayer
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable MapLayerType
instance FromHttpApiData MapLayerType where
parseQueryParam = \case
"layer" -> Right MLTLayer
x -> Left ("Unable to parse MapLayerType from: " <> x)
instance ToHttpApiData MapLayerType where
toQueryParam = \case
MLTLayer -> "layer"
instance FromJSON MapLayerType where
parseJSON = parseJSONText "MapLayerType"
instance ToJSON MapLayerType where
toJSON = toJSONText
data LabelStyleFontWeight
= Bold
| Normal
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable LabelStyleFontWeight
instance FromHttpApiData LabelStyleFontWeight where
parseQueryParam = \case
"bold" -> Right Bold
"normal" -> Right Normal
x -> Left ("Unable to parse LabelStyleFontWeight from: " <> x)
instance ToHttpApiData LabelStyleFontWeight where
toQueryParam = \case
Bold -> "bold"
Normal -> "normal"
instance FromJSON LabelStyleFontWeight where
parseJSON = parseJSONText "LabelStyleFontWeight"
instance ToJSON LabelStyleFontWeight where
toJSON = toJSONText
data MapFolderType
= Folder
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable MapFolderType
instance FromHttpApiData MapFolderType where
parseQueryParam = \case
"folder" -> Right Folder
x -> Left ("Unable to parse MapFolderType from: " <> x)
instance ToHttpApiData MapFolderType where
toQueryParam = \case
Folder -> "folder"
instance FromJSON MapFolderType where
parseJSON = parseJSONText "MapFolderType"
instance ToJSON MapFolderType where
toJSON = toJSONText
data RasterCollectionProcessingStatus
= RCPSComplete
| RCPSFailed
| RCPSNotReady
| RCPSProcessing
| RCPSReady
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable RasterCollectionProcessingStatus
instance FromHttpApiData RasterCollectionProcessingStatus where
parseQueryParam = \case
"complete" -> Right RCPSComplete
"failed" -> Right RCPSFailed
"notReady" -> Right RCPSNotReady
"processing" -> Right RCPSProcessing
"ready" -> Right RCPSReady
x -> Left ("Unable to parse RasterCollectionProcessingStatus from: " <> x)
instance ToHttpApiData RasterCollectionProcessingStatus where
toQueryParam = \case
RCPSComplete -> "complete"
RCPSFailed -> "failed"
RCPSNotReady -> "notReady"
RCPSProcessing -> "processing"
RCPSReady -> "ready"
instance FromJSON RasterCollectionProcessingStatus where
parseJSON = parseJSONText "RasterCollectionProcessingStatus"
instance ToJSON RasterCollectionProcessingStatus where
toJSON = toJSONText
data TablesFeaturesListVersion
= TFLVDraft
| TFLVPublished
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable TablesFeaturesListVersion
instance FromHttpApiData TablesFeaturesListVersion where
parseQueryParam = \case
"draft" -> Right TFLVDraft
"published" -> Right TFLVPublished
x -> Left ("Unable to parse TablesFeaturesListVersion from: " <> x)
instance ToHttpApiData TablesFeaturesListVersion where
toQueryParam = \case
TFLVDraft -> "draft"
TFLVPublished -> "published"
instance FromJSON TablesFeaturesListVersion where
parseJSON = parseJSONText "TablesFeaturesListVersion"
instance ToJSON TablesFeaturesListVersion where
toJSON = toJSONText
data MapsListProcessingStatus
= MLPSComplete
| MLPSFailed
| MLPSNotReady
| MLPSProcessing
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable MapsListProcessingStatus
instance FromHttpApiData MapsListProcessingStatus where
parseQueryParam = \case
"complete" -> Right MLPSComplete
"failed" -> Right MLPSFailed
"notReady" -> Right MLPSNotReady
"processing" -> Right MLPSProcessing
x -> Left ("Unable to parse MapsListProcessingStatus from: " <> x)
instance ToHttpApiData MapsListProcessingStatus where
toQueryParam = \case
MLPSComplete -> "complete"
MLPSFailed -> "failed"
MLPSNotReady -> "notReady"
MLPSProcessing -> "processing"
instance FromJSON MapsListProcessingStatus where
parseJSON = parseJSONText "MapsListProcessingStatus"
instance ToJSON MapsListProcessingStatus where
toJSON = toJSONText
data LabelStyleFontStyle
= LSFSItalic
| LSFSNormal
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable LabelStyleFontStyle
instance FromHttpApiData LabelStyleFontStyle where
parseQueryParam = \case
"italic" -> Right LSFSItalic
"normal" -> Right LSFSNormal
x -> Left ("Unable to parse LabelStyleFontStyle from: " <> x)
instance ToHttpApiData LabelStyleFontStyle where
toQueryParam = \case
LSFSItalic -> "italic"
LSFSNormal -> "normal"
instance FromJSON LabelStyleFontStyle where
parseJSON = parseJSONText "LabelStyleFontStyle"
instance ToJSON LabelStyleFontStyle where
toJSON = toJSONText
data AssetType
= ATLayer
| ATMap
| ATRaster
| ATRasterCollection
| ATTable
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable AssetType
instance FromHttpApiData AssetType where
parseQueryParam = \case
"layer" -> Right ATLayer
"map" -> Right ATMap
"raster" -> Right ATRaster
"rasterCollection" -> Right ATRasterCollection
"table" -> Right ATTable
x -> Left ("Unable to parse AssetType from: " <> x)
instance ToHttpApiData AssetType where
toQueryParam = \case
ATLayer -> "layer"
ATMap -> "map"
ATRaster -> "raster"
ATRasterCollection -> "rasterCollection"
ATTable -> "table"
instance FromJSON AssetType where
parseJSON = parseJSONText "AssetType"
instance ToJSON AssetType where
toJSON = toJSONText
data RasterRasterType
= RRTImage
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable RasterRasterType
instance FromHttpApiData RasterRasterType where
parseQueryParam = \case
"image" -> Right RRTImage
x -> Left ("Unable to parse RasterRasterType from: " <> x)
instance ToHttpApiData RasterRasterType where
toQueryParam = \case
RRTImage -> "image"
instance FromJSON RasterRasterType where
parseJSON = parseJSONText "RasterRasterType"
instance ToJSON RasterRasterType where
toJSON = toJSONText
data RasterCollectionsListRole
= RCLROwner
| RCLRReader
| RCLRWriter
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable RasterCollectionsListRole
instance FromHttpApiData RasterCollectionsListRole where
parseQueryParam = \case
"owner" -> Right RCLROwner
"reader" -> Right RCLRReader
"writer" -> Right RCLRWriter
x -> Left ("Unable to parse RasterCollectionsListRole from: " <> x)
instance ToHttpApiData RasterCollectionsListRole where
toQueryParam = \case
RCLROwner -> "owner"
RCLRReader -> "reader"
RCLRWriter -> "writer"
instance FromJSON RasterCollectionsListRole where
parseJSON = parseJSONText "RasterCollectionsListRole"
instance ToJSON RasterCollectionsListRole where
toJSON = toJSONText
data FilterOperator
= NotEqual
| Less
| LessOrEqual
| Equal
| Greater
| GreaterEqual
| Contains
| EndsWith
| StartsWith
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable FilterOperator
instance FromHttpApiData FilterOperator where
parseQueryParam = \case
"!=" -> Right NotEqual
"<" -> Right Less
"<=" -> Right LessOrEqual
"==" -> Right Equal
">" -> Right Greater
">=" -> Right GreaterEqual
"contains" -> Right Contains
"endsWith" -> Right EndsWith
"startsWith" -> Right StartsWith
x -> Left ("Unable to parse FilterOperator from: " <> x)
instance ToHttpApiData FilterOperator where
toQueryParam = \case
NotEqual -> "!="
Less -> "<"
LessOrEqual -> "<="
Equal -> "=="
Greater -> ">"
GreaterEqual -> ">="
Contains -> "contains"
EndsWith -> "endsWith"
StartsWith -> "startsWith"
instance FromJSON FilterOperator where
parseJSON = parseJSONText "FilterOperator"
instance ToJSON FilterOperator where
toJSON = toJSONText
data TableColumnType
= Datetime
| Double
| Integer
| LineStrings
| MixedGeometry
| Points
| Polygons
| String
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable TableColumnType
instance FromHttpApiData TableColumnType where
parseQueryParam = \case
"datetime" -> Right Datetime
"double" -> Right Double
"integer" -> Right Integer
"lineStrings" -> Right LineStrings
"mixedGeometry" -> Right MixedGeometry
"points" -> Right Points
"polygons" -> Right Polygons
"string" -> Right String
x -> Left ("Unable to parse TableColumnType from: " <> x)
instance ToHttpApiData TableColumnType where
toQueryParam = \case
Datetime -> "datetime"
Double -> "double"
Integer -> "integer"
LineStrings -> "lineStrings"
MixedGeometry -> "mixedGeometry"
Points -> "points"
Polygons -> "polygons"
String -> "string"
instance FromJSON TableColumnType where
parseJSON = parseJSONText "TableColumnType"
instance ToJSON TableColumnType where
toJSON = toJSONText
data RasterCollectionsListProcessingStatus
= RCLPSComplete
| RCLPSFailed
| RCLPSNotReady
| RCLPSProcessing
| RCLPSReady
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable RasterCollectionsListProcessingStatus
instance FromHttpApiData RasterCollectionsListProcessingStatus where
parseQueryParam = \case
"complete" -> Right RCLPSComplete
"failed" -> Right RCLPSFailed
"notReady" -> Right RCLPSNotReady
"processing" -> Right RCLPSProcessing
"ready" -> Right RCLPSReady
x -> Left ("Unable to parse RasterCollectionsListProcessingStatus from: " <> x)
instance ToHttpApiData RasterCollectionsListProcessingStatus where
toQueryParam = \case
RCLPSComplete -> "complete"
RCLPSFailed -> "failed"
RCLPSNotReady -> "notReady"
RCLPSProcessing -> "processing"
RCLPSReady -> "ready"
instance FromJSON RasterCollectionsListProcessingStatus where
parseJSON = parseJSONText "RasterCollectionsListProcessingStatus"
instance ToJSON RasterCollectionsListProcessingStatus where
toJSON = toJSONText
data LayersListRole
= LLROwner
| LLRReader
| LLRWriter
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable LayersListRole
instance FromHttpApiData LayersListRole where
parseQueryParam = \case
"owner" -> Right LLROwner
"reader" -> Right LLRReader
"writer" -> Right LLRWriter
x -> Left ("Unable to parse LayersListRole from: " <> x)
instance ToHttpApiData LayersListRole where
toQueryParam = \case
LLROwner -> "owner"
LLRReader -> "reader"
LLRWriter -> "writer"
instance FromJSON LayersListRole where
parseJSON = parseJSONText "LayersListRole"
instance ToJSON LayersListRole where
toJSON = toJSONText
data TablesFeaturesGetVersion
= TFGVDraft
| TFGVPublished
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable TablesFeaturesGetVersion
instance FromHttpApiData TablesFeaturesGetVersion where
parseQueryParam = \case
"draft" -> Right TFGVDraft
"published" -> Right TFGVPublished
x -> Left ("Unable to parse TablesFeaturesGetVersion from: " <> x)
instance ToHttpApiData TablesFeaturesGetVersion where
toQueryParam = \case
TFGVDraft -> "draft"
TFGVPublished -> "published"
instance FromJSON TablesFeaturesGetVersion where
parseJSON = parseJSONText "TablesFeaturesGetVersion"
instance ToJSON TablesFeaturesGetVersion where
toJSON = toJSONText
data RasterCollectionRasterType
= RCRTImage
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable RasterCollectionRasterType
instance FromHttpApiData RasterCollectionRasterType where
parseQueryParam = \case
"image" -> Right RCRTImage
x -> Left ("Unable to parse RasterCollectionRasterType from: " <> x)
instance ToHttpApiData RasterCollectionRasterType where
toQueryParam = \case
RCRTImage -> "image"
instance FromJSON RasterCollectionRasterType where
parseJSON = parseJSONText "RasterCollectionRasterType"
instance ToJSON RasterCollectionRasterType where
toJSON = toJSONText
data RastersListRole
= RLROwner
| RLRReader
| RLRWriter
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable RastersListRole
instance FromHttpApiData RastersListRole where
parseQueryParam = \case
"owner" -> Right RLROwner
"reader" -> Right RLRReader
"writer" -> Right RLRWriter
x -> Left ("Unable to parse RastersListRole from: " <> x)
instance ToHttpApiData RastersListRole where
toQueryParam = \case
RLROwner -> "owner"
RLRReader -> "reader"
RLRWriter -> "writer"
instance FromJSON RastersListRole where
parseJSON = parseJSONText "RastersListRole"
instance ToJSON RastersListRole where
toJSON = toJSONText
data MapPublishingStatus
= MPSNotPublished
| MPSPublished
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable MapPublishingStatus
instance FromHttpApiData MapPublishingStatus where
parseQueryParam = \case
"notPublished" -> Right MPSNotPublished
"published" -> Right MPSPublished
x -> Left ("Unable to parse MapPublishingStatus from: " <> x)
instance ToHttpApiData MapPublishingStatus where
toQueryParam = \case
MPSNotPublished -> "notPublished"
MPSPublished -> "published"
instance FromJSON MapPublishingStatus where
parseJSON = parseJSONText "MapPublishingStatus"
instance ToJSON MapPublishingStatus where
toJSON = toJSONText
data FileUploadStatus
= FUSCanceled
| FUSComplete
| FUSFailed
| FUSInProgress
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable FileUploadStatus
instance FromHttpApiData FileUploadStatus where
parseQueryParam = \case
"canceled" -> Right FUSCanceled
"complete" -> Right FUSComplete
"failed" -> Right FUSFailed
"inProgress" -> Right FUSInProgress
x -> Left ("Unable to parse FileUploadStatus from: " <> x)
instance ToHttpApiData FileUploadStatus where
toQueryParam = \case
FUSCanceled -> "canceled"
FUSComplete -> "complete"
FUSFailed -> "failed"
FUSInProgress -> "inProgress"
instance FromJSON FileUploadStatus where
parseJSON = parseJSONText "FileUploadStatus"
instance ToJSON FileUploadStatus where
toJSON = toJSONText
data MapsListRole
= MLROwner
| MLRReader
| MLRWriter
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable MapsListRole
instance FromHttpApiData MapsListRole where
parseQueryParam = \case
"owner" -> Right MLROwner
"reader" -> Right MLRReader
"writer" -> Right MLRWriter
x -> Left ("Unable to parse MapsListRole from: " <> x)
instance ToHttpApiData MapsListRole where
toQueryParam = \case
MLROwner -> "owner"
MLRReader -> "reader"
MLRWriter -> "writer"
instance FromJSON MapsListRole where
parseJSON = parseJSONText "MapsListRole"
instance ToJSON MapsListRole where
toJSON = toJSONText
data TablesGetVersion
= TGVDraft
| TGVPublished
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable TablesGetVersion
instance FromHttpApiData TablesGetVersion where
parseQueryParam = \case
"draft" -> Right TGVDraft
"published" -> Right TGVPublished
x -> Left ("Unable to parse TablesGetVersion from: " <> x)
instance ToHttpApiData TablesGetVersion where
toQueryParam = \case
TGVDraft -> "draft"
TGVPublished -> "published"
instance FromJSON TablesGetVersion where
parseJSON = parseJSONText "TablesGetVersion"
instance ToJSON TablesGetVersion where
toJSON = toJSONText
data TableProcessingStatus
= TPSComplete
| TPSFailed
| TPSNotReady
| TPSProcessing
| TPSReady
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable TableProcessingStatus
instance FromHttpApiData TableProcessingStatus where
parseQueryParam = \case
"complete" -> Right TPSComplete
"failed" -> Right TPSFailed
"notReady" -> Right TPSNotReady
"processing" -> Right TPSProcessing
"ready" -> Right TPSReady
x -> Left ("Unable to parse TableProcessingStatus from: " <> x)
instance ToHttpApiData TableProcessingStatus where
toQueryParam = \case
TPSComplete -> "complete"
TPSFailed -> "failed"
TPSNotReady -> "notReady"
TPSProcessing -> "processing"
TPSReady -> "ready"
instance FromJSON TableProcessingStatus where
parseJSON = parseJSONText "TableProcessingStatus"
instance ToJSON TableProcessingStatus where
toJSON = toJSONText