module Network.Google.MapsEngine.Types.Product where
import Network.Google.MapsEngine.Types.Sum
import Network.Google.Prelude
data ValueRange = ValueRange'
{ _vrMax :: !(Maybe (Textual Double))
, _vrMin :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
valueRange
:: ValueRange
valueRange =
ValueRange'
{ _vrMax = Nothing
, _vrMin = Nothing
}
vrMax :: Lens' ValueRange (Maybe Double)
vrMax
= lens _vrMax (\ s a -> s{_vrMax = a}) .
mapping _Coerce
vrMin :: Lens' ValueRange (Maybe Double)
vrMin
= lens _vrMin (\ s a -> s{_vrMin = a}) .
mapping _Coerce
instance FromJSON ValueRange where
parseJSON
= withObject "ValueRange"
(\ o ->
ValueRange' <$> (o .:? "max") <*> (o .:? "min"))
instance ToJSON ValueRange where
toJSON ValueRange'{..}
= object
(catMaybes
[("max" .=) <$> _vrMax, ("min" .=) <$> _vrMin])
newtype GeoJSONProperties = GeoJSONProperties'
{ _gjpAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
geoJSONProperties
:: HashMap Text JSONValue
-> GeoJSONProperties
geoJSONProperties pGjpAddtional_ =
GeoJSONProperties'
{ _gjpAddtional = _Coerce # pGjpAddtional_
}
gjpAddtional :: Lens' GeoJSONProperties (HashMap Text JSONValue)
gjpAddtional
= lens _gjpAddtional (\ s a -> s{_gjpAddtional = a})
. _Coerce
instance FromJSON GeoJSONProperties where
parseJSON
= withObject "GeoJSONProperties"
(\ o -> GeoJSONProperties' <$> (parseJSONObject o))
instance ToJSON GeoJSONProperties where
toJSON = toJSON . _gjpAddtional
data Feature = Feature'
{ _fGeometry :: !(Maybe GeoJSONGeometry)
, _fType :: !Text
, _fProperties :: !(Maybe GeoJSONProperties)
} deriving (Eq,Show,Data,Typeable,Generic)
feature
:: Feature
feature =
Feature'
{ _fGeometry = Nothing
, _fType = "Feature"
, _fProperties = Nothing
}
fGeometry :: Lens' Feature (Maybe GeoJSONGeometry)
fGeometry
= lens _fGeometry (\ s a -> s{_fGeometry = a})
fType :: Lens' Feature Text
fType = lens _fType (\ s a -> s{_fType = a})
fProperties :: Lens' Feature (Maybe GeoJSONProperties)
fProperties
= lens _fProperties (\ s a -> s{_fProperties = a})
instance FromJSON Feature where
parseJSON
= withObject "Feature"
(\ o ->
Feature' <$>
(o .:? "geometry") <*> (o .:? "type" .!= "Feature")
<*> (o .:? "properties"))
instance ToJSON Feature where
toJSON Feature'{..}
= object
(catMaybes
[("geometry" .=) <$> _fGeometry,
Just ("type" .= _fType),
("properties" .=) <$> _fProperties])
newtype Parent = Parent'
{ _pId :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
parent
:: Parent
parent =
Parent'
{ _pId = Nothing
}
pId :: Lens' Parent (Maybe Text)
pId = lens _pId (\ s a -> s{_pId = a})
instance FromJSON Parent where
parseJSON
= withObject "Parent"
(\ o -> Parent' <$> (o .:? "id"))
instance ToJSON Parent where
toJSON Parent'{..}
= object (catMaybes [("id" .=) <$> _pId])
data FeaturesBatchPatchRequest = FeaturesBatchPatchRequest'
{ _fbprFeatures :: !(Maybe [Feature])
, _fbprNormalizeGeometries :: !Bool
} deriving (Eq,Show,Data,Typeable,Generic)
featuresBatchPatchRequest
:: FeaturesBatchPatchRequest
featuresBatchPatchRequest =
FeaturesBatchPatchRequest'
{ _fbprFeatures = Nothing
, _fbprNormalizeGeometries = True
}
fbprFeatures :: Lens' FeaturesBatchPatchRequest [Feature]
fbprFeatures
= lens _fbprFeatures (\ s a -> s{_fbprFeatures = a})
. _Default
. _Coerce
fbprNormalizeGeometries :: Lens' FeaturesBatchPatchRequest Bool
fbprNormalizeGeometries
= lens _fbprNormalizeGeometries
(\ s a -> s{_fbprNormalizeGeometries = a})
instance FromJSON FeaturesBatchPatchRequest where
parseJSON
= withObject "FeaturesBatchPatchRequest"
(\ o ->
FeaturesBatchPatchRequest' <$>
(o .:? "features" .!= mempty) <*>
(o .:? "normalizeGeometries" .!= True))
instance ToJSON FeaturesBatchPatchRequest where
toJSON FeaturesBatchPatchRequest'{..}
= object
(catMaybes
[("features" .=) <$> _fbprFeatures,
Just
("normalizeGeometries" .= _fbprNormalizeGeometries)])
newtype PermissionsBatchUpdateRequest = PermissionsBatchUpdateRequest'
{ _pburPermissions :: Maybe [Permission]
} deriving (Eq,Show,Data,Typeable,Generic)
permissionsBatchUpdateRequest
:: PermissionsBatchUpdateRequest
permissionsBatchUpdateRequest =
PermissionsBatchUpdateRequest'
{ _pburPermissions = Nothing
}
pburPermissions :: Lens' PermissionsBatchUpdateRequest [Permission]
pburPermissions
= lens _pburPermissions
(\ s a -> s{_pburPermissions = a})
. _Default
. _Coerce
instance FromJSON PermissionsBatchUpdateRequest where
parseJSON
= withObject "PermissionsBatchUpdateRequest"
(\ o ->
PermissionsBatchUpdateRequest' <$>
(o .:? "permissions" .!= mempty))
instance ToJSON PermissionsBatchUpdateRequest where
toJSON PermissionsBatchUpdateRequest'{..}
= object
(catMaybes [("permissions" .=) <$> _pburPermissions])
newtype PermissionsBatchDeleteRequest = PermissionsBatchDeleteRequest'
{ _pbdrIds :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
permissionsBatchDeleteRequest
:: PermissionsBatchDeleteRequest
permissionsBatchDeleteRequest =
PermissionsBatchDeleteRequest'
{ _pbdrIds = Nothing
}
pbdrIds :: Lens' PermissionsBatchDeleteRequest [Text]
pbdrIds
= lens _pbdrIds (\ s a -> s{_pbdrIds = a}) . _Default
. _Coerce
instance FromJSON PermissionsBatchDeleteRequest where
parseJSON
= withObject "PermissionsBatchDeleteRequest"
(\ o ->
PermissionsBatchDeleteRequest' <$>
(o .:? "ids" .!= mempty))
instance ToJSON PermissionsBatchDeleteRequest where
toJSON PermissionsBatchDeleteRequest'{..}
= object (catMaybes [("ids" .=) <$> _pbdrIds])
data RasterCollectionsListResponse = RasterCollectionsListResponse'
{ _rclrNextPageToken :: !(Maybe Base64)
, _rclrRasterCollections :: !(Maybe [RasterCollection])
} deriving (Eq,Show,Data,Typeable,Generic)
rasterCollectionsListResponse
:: RasterCollectionsListResponse
rasterCollectionsListResponse =
RasterCollectionsListResponse'
{ _rclrNextPageToken = Nothing
, _rclrRasterCollections = Nothing
}
rclrNextPageToken :: Lens' RasterCollectionsListResponse (Maybe ByteString)
rclrNextPageToken
= lens _rclrNextPageToken
(\ s a -> s{_rclrNextPageToken = a})
. mapping _Base64
rclrRasterCollections :: Lens' RasterCollectionsListResponse [RasterCollection]
rclrRasterCollections
= lens _rclrRasterCollections
(\ s a -> s{_rclrRasterCollections = a})
. _Default
. _Coerce
instance FromJSON RasterCollectionsListResponse where
parseJSON
= withObject "RasterCollectionsListResponse"
(\ o ->
RasterCollectionsListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "rasterCollections" .!= mempty))
instance ToJSON RasterCollectionsListResponse where
toJSON RasterCollectionsListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _rclrNextPageToken,
("rasterCollections" .=) <$> _rclrRasterCollections])
newtype ProjectsListResponse = ProjectsListResponse'
{ _plrProjects :: Maybe [Project]
} deriving (Eq,Show,Data,Typeable,Generic)
projectsListResponse
:: ProjectsListResponse
projectsListResponse =
ProjectsListResponse'
{ _plrProjects = Nothing
}
plrProjects :: Lens' ProjectsListResponse [Project]
plrProjects
= lens _plrProjects (\ s a -> s{_plrProjects = a}) .
_Default
. _Coerce
instance FromJSON ProjectsListResponse where
parseJSON
= withObject "ProjectsListResponse"
(\ o ->
ProjectsListResponse' <$>
(o .:? "projects" .!= mempty))
instance ToJSON ProjectsListResponse where
toJSON ProjectsListResponse'{..}
= object
(catMaybes [("projects" .=) <$> _plrProjects])
data GeoJSONGeometry =
GeoJSONGeometry'
deriving (Eq,Show,Data,Typeable,Generic)
geoJSONGeometry
:: GeoJSONGeometry
geoJSONGeometry = GeoJSONGeometry'
instance FromJSON GeoJSONGeometry where
parseJSON
= withObject "GeoJSONGeometry"
(\ o -> pure GeoJSONGeometry')
instance ToJSON GeoJSONGeometry where
toJSON = const emptyObject
data MapLayer = MapLayer'
{ _mlDefaultViewport :: !(Maybe [Textual Double])
, _mlVisibility :: !(Maybe Text)
, _mlKey :: !(Maybe Text)
, _mlName :: !(Maybe Text)
, _mlId :: !(Maybe Text)
, _mlType :: !(Maybe MapLayerType)
} deriving (Eq,Show,Data,Typeable,Generic)
mapLayer
:: MapLayer
mapLayer =
MapLayer'
{ _mlDefaultViewport = Nothing
, _mlVisibility = Nothing
, _mlKey = Nothing
, _mlName = Nothing
, _mlId = Nothing
, _mlType = Nothing
}
mlDefaultViewport :: Lens' MapLayer [Double]
mlDefaultViewport
= lens _mlDefaultViewport
(\ s a -> s{_mlDefaultViewport = a})
. _Default
. _Coerce
mlVisibility :: Lens' MapLayer (Maybe Text)
mlVisibility
= lens _mlVisibility (\ s a -> s{_mlVisibility = a})
mlKey :: Lens' MapLayer (Maybe Text)
mlKey = lens _mlKey (\ s a -> s{_mlKey = a})
mlName :: Lens' MapLayer (Maybe Text)
mlName = lens _mlName (\ s a -> s{_mlName = a})
mlId :: Lens' MapLayer (Maybe Text)
mlId = lens _mlId (\ s a -> s{_mlId = a})
mlType :: Lens' MapLayer (Maybe MapLayerType)
mlType = lens _mlType (\ s a -> s{_mlType = a})
instance FromJSON MapLayer where
parseJSON
= withObject "MapLayer"
(\ o ->
MapLayer' <$>
(o .:? "defaultViewport" .!= mempty) <*>
(o .:? "visibility")
<*> (o .:? "key")
<*> (o .:? "name")
<*> (o .:? "id")
<*> (o .:? "type"))
instance ToJSON MapLayer where
toJSON MapLayer'{..}
= object
(catMaybes
[("defaultViewport" .=) <$> _mlDefaultViewport,
("visibility" .=) <$> _mlVisibility,
("key" .=) <$> _mlKey, ("name" .=) <$> _mlName,
("id" .=) <$> _mlId, ("type" .=) <$> _mlType])
data ZoomLevels = ZoomLevels'
{ _zlMax :: !(Maybe (Textual Int32))
, _zlMin :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
zoomLevels
:: ZoomLevels
zoomLevels =
ZoomLevels'
{ _zlMax = Nothing
, _zlMin = Nothing
}
zlMax :: Lens' ZoomLevels (Maybe Int32)
zlMax
= lens _zlMax (\ s a -> s{_zlMax = a}) .
mapping _Coerce
zlMin :: Lens' ZoomLevels (Maybe Int32)
zlMin
= lens _zlMin (\ s a -> s{_zlMin = a}) .
mapping _Coerce
instance FromJSON ZoomLevels where
parseJSON
= withObject "ZoomLevels"
(\ o ->
ZoomLevels' <$> (o .:? "max") <*> (o .:? "min"))
instance ToJSON ZoomLevels where
toJSON ZoomLevels'{..}
= object
(catMaybes
[("max" .=) <$> _zlMax, ("min" .=) <$> _zlMin])
newtype FeatureInfo = FeatureInfo'
{ _fiContent :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
featureInfo
:: FeatureInfo
featureInfo =
FeatureInfo'
{ _fiContent = Nothing
}
fiContent :: Lens' FeatureInfo (Maybe Text)
fiContent
= lens _fiContent (\ s a -> s{_fiContent = a})
instance FromJSON FeatureInfo where
parseJSON
= withObject "FeatureInfo"
(\ o -> FeatureInfo' <$> (o .:? "content"))
instance ToJSON FeatureInfo where
toJSON FeatureInfo'{..}
= object (catMaybes [("content" .=) <$> _fiContent])
data SizeRange = SizeRange'
{ _srMax :: !(Maybe (Textual Double))
, _srMin :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
sizeRange
:: SizeRange
sizeRange =
SizeRange'
{ _srMax = Nothing
, _srMin = Nothing
}
srMax :: Lens' SizeRange (Maybe Double)
srMax
= lens _srMax (\ s a -> s{_srMax = a}) .
mapping _Coerce
srMin :: Lens' SizeRange (Maybe Double)
srMin
= lens _srMin (\ s a -> s{_srMin = a}) .
mapping _Coerce
instance FromJSON SizeRange where
parseJSON
= withObject "SizeRange"
(\ o ->
SizeRange' <$> (o .:? "max") <*> (o .:? "min"))
instance ToJSON SizeRange where
toJSON SizeRange'{..}
= object
(catMaybes
[("max" .=) <$> _srMax, ("min" .=) <$> _srMin])
data MapFolder = MapFolder'
{ _mfExpandable :: !(Maybe Bool)
, _mfDefaultViewport :: !(Maybe [Textual Double])
, _mfContents :: !(Maybe [MapItem])
, _mfVisibility :: !(Maybe Text)
, _mfKey :: !(Maybe Text)
, _mfName :: !(Maybe Text)
, _mfType :: !(Maybe MapFolderType)
} deriving (Eq,Show,Data,Typeable,Generic)
mapFolder
:: MapFolder
mapFolder =
MapFolder'
{ _mfExpandable = Nothing
, _mfDefaultViewport = Nothing
, _mfContents = Nothing
, _mfVisibility = Nothing
, _mfKey = Nothing
, _mfName = Nothing
, _mfType = Nothing
}
mfExpandable :: Lens' MapFolder (Maybe Bool)
mfExpandable
= lens _mfExpandable (\ s a -> s{_mfExpandable = a})
mfDefaultViewport :: Lens' MapFolder [Double]
mfDefaultViewport
= lens _mfDefaultViewport
(\ s a -> s{_mfDefaultViewport = a})
. _Default
. _Coerce
mfContents :: Lens' MapFolder [MapItem]
mfContents
= lens _mfContents (\ s a -> s{_mfContents = a}) .
_Default
. _Coerce
mfVisibility :: Lens' MapFolder (Maybe Text)
mfVisibility
= lens _mfVisibility (\ s a -> s{_mfVisibility = a})
mfKey :: Lens' MapFolder (Maybe Text)
mfKey = lens _mfKey (\ s a -> s{_mfKey = a})
mfName :: Lens' MapFolder (Maybe Text)
mfName = lens _mfName (\ s a -> s{_mfName = a})
mfType :: Lens' MapFolder (Maybe MapFolderType)
mfType = lens _mfType (\ s a -> s{_mfType = a})
instance FromJSON MapFolder where
parseJSON
= withObject "MapFolder"
(\ o ->
MapFolder' <$>
(o .:? "expandable") <*>
(o .:? "defaultViewport" .!= mempty)
<*> (o .:? "contents" .!= mempty)
<*> (o .:? "visibility")
<*> (o .:? "key")
<*> (o .:? "name")
<*> (o .:? "type"))
instance ToJSON MapFolder where
toJSON MapFolder'{..}
= object
(catMaybes
[("expandable" .=) <$> _mfExpandable,
("defaultViewport" .=) <$> _mfDefaultViewport,
("contents" .=) <$> _mfContents,
("visibility" .=) <$> _mfVisibility,
("key" .=) <$> _mfKey, ("name" .=) <$> _mfName,
("type" .=) <$> _mfType])
data Project = Project'
{ _proName :: !(Maybe Text)
, _proId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
project
:: Project
project =
Project'
{ _proName = Nothing
, _proId = Nothing
}
proName :: Lens' Project (Maybe Text)
proName = lens _proName (\ s a -> s{_proName = a})
proId :: Lens' Project (Maybe Text)
proId = lens _proId (\ s a -> s{_proId = a})
instance FromJSON Project where
parseJSON
= withObject "Project"
(\ o -> Project' <$> (o .:? "name") <*> (o .:? "id"))
instance ToJSON Project where
toJSON Project'{..}
= object
(catMaybes
[("name" .=) <$> _proName, ("id" .=) <$> _proId])
data Color = Color'
{ _cColor :: !(Maybe Text)
, _cOpacity :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
color
:: Color
color =
Color'
{ _cColor = Nothing
, _cOpacity = Nothing
}
cColor :: Lens' Color (Maybe Text)
cColor = lens _cColor (\ s a -> s{_cColor = a})
cOpacity :: Lens' Color (Maybe Double)
cOpacity
= lens _cOpacity (\ s a -> s{_cOpacity = a}) .
mapping _Coerce
instance FromJSON Color where
parseJSON
= withObject "Color"
(\ o ->
Color' <$> (o .:? "color") <*> (o .:? "opacity"))
instance ToJSON Color where
toJSON Color'{..}
= object
(catMaybes
[("color" .=) <$> _cColor,
("opacity" .=) <$> _cOpacity])
data RasterCollection = RasterCollection'
{ _rcCreationTime :: !(Maybe DateTime')
, _rcWritersCanEditPermissions :: !(Maybe Bool)
, _rcEtag :: !(Maybe Text)
, _rcCreatorEmail :: !(Maybe Text)
, _rcRasterType :: !(Maybe RasterCollectionRasterType)
, _rcLastModifiedTime :: !(Maybe DateTime')
, _rcLastModifierEmail :: !(Maybe Text)
, _rcName :: !(Maybe Text)
, _rcBbox :: !(Maybe [Textual Double])
, _rcProcessingStatus :: !(Maybe RasterCollectionProcessingStatus)
, _rcMosaic :: !(Maybe Bool)
, _rcId :: !(Maybe Text)
, _rcProjectId :: !(Maybe Text)
, _rcDraftAccessList :: !(Maybe Text)
, _rcDescription :: !(Maybe Text)
, _rcAttribution :: !(Maybe Text)
, _rcTags :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
rasterCollection
:: RasterCollection
rasterCollection =
RasterCollection'
{ _rcCreationTime = Nothing
, _rcWritersCanEditPermissions = Nothing
, _rcEtag = Nothing
, _rcCreatorEmail = Nothing
, _rcRasterType = Nothing
, _rcLastModifiedTime = Nothing
, _rcLastModifierEmail = Nothing
, _rcName = Nothing
, _rcBbox = Nothing
, _rcProcessingStatus = Nothing
, _rcMosaic = Nothing
, _rcId = Nothing
, _rcProjectId = Nothing
, _rcDraftAccessList = Nothing
, _rcDescription = Nothing
, _rcAttribution = Nothing
, _rcTags = Nothing
}
rcCreationTime :: Lens' RasterCollection (Maybe UTCTime)
rcCreationTime
= lens _rcCreationTime
(\ s a -> s{_rcCreationTime = a})
. mapping _DateTime
rcWritersCanEditPermissions :: Lens' RasterCollection (Maybe Bool)
rcWritersCanEditPermissions
= lens _rcWritersCanEditPermissions
(\ s a -> s{_rcWritersCanEditPermissions = a})
rcEtag :: Lens' RasterCollection (Maybe Text)
rcEtag = lens _rcEtag (\ s a -> s{_rcEtag = a})
rcCreatorEmail :: Lens' RasterCollection (Maybe Text)
rcCreatorEmail
= lens _rcCreatorEmail
(\ s a -> s{_rcCreatorEmail = a})
rcRasterType :: Lens' RasterCollection (Maybe RasterCollectionRasterType)
rcRasterType
= lens _rcRasterType (\ s a -> s{_rcRasterType = a})
rcLastModifiedTime :: Lens' RasterCollection (Maybe UTCTime)
rcLastModifiedTime
= lens _rcLastModifiedTime
(\ s a -> s{_rcLastModifiedTime = a})
. mapping _DateTime
rcLastModifierEmail :: Lens' RasterCollection (Maybe Text)
rcLastModifierEmail
= lens _rcLastModifierEmail
(\ s a -> s{_rcLastModifierEmail = a})
rcName :: Lens' RasterCollection (Maybe Text)
rcName = lens _rcName (\ s a -> s{_rcName = a})
rcBbox :: Lens' RasterCollection [Double]
rcBbox
= lens _rcBbox (\ s a -> s{_rcBbox = a}) . _Default .
_Coerce
rcProcessingStatus :: Lens' RasterCollection (Maybe RasterCollectionProcessingStatus)
rcProcessingStatus
= lens _rcProcessingStatus
(\ s a -> s{_rcProcessingStatus = a})
rcMosaic :: Lens' RasterCollection (Maybe Bool)
rcMosaic = lens _rcMosaic (\ s a -> s{_rcMosaic = a})
rcId :: Lens' RasterCollection (Maybe Text)
rcId = lens _rcId (\ s a -> s{_rcId = a})
rcProjectId :: Lens' RasterCollection (Maybe Text)
rcProjectId
= lens _rcProjectId (\ s a -> s{_rcProjectId = a})
rcDraftAccessList :: Lens' RasterCollection (Maybe Text)
rcDraftAccessList
= lens _rcDraftAccessList
(\ s a -> s{_rcDraftAccessList = a})
rcDescription :: Lens' RasterCollection (Maybe Text)
rcDescription
= lens _rcDescription
(\ s a -> s{_rcDescription = a})
rcAttribution :: Lens' RasterCollection (Maybe Text)
rcAttribution
= lens _rcAttribution
(\ s a -> s{_rcAttribution = a})
rcTags :: Lens' RasterCollection [Text]
rcTags
= lens _rcTags (\ s a -> s{_rcTags = a}) . _Default .
_Coerce
instance FromJSON RasterCollection where
parseJSON
= withObject "RasterCollection"
(\ o ->
RasterCollection' <$>
(o .:? "creationTime") <*>
(o .:? "writersCanEditPermissions")
<*> (o .:? "etag")
<*> (o .:? "creatorEmail")
<*> (o .:? "rasterType")
<*> (o .:? "lastModifiedTime")
<*> (o .:? "lastModifierEmail")
<*> (o .:? "name")
<*> (o .:? "bbox" .!= mempty)
<*> (o .:? "processingStatus")
<*> (o .:? "mosaic")
<*> (o .:? "id")
<*> (o .:? "projectId")
<*> (o .:? "draftAccessList")
<*> (o .:? "description")
<*> (o .:? "attribution")
<*> (o .:? "tags"))
instance ToJSON RasterCollection where
toJSON RasterCollection'{..}
= object
(catMaybes
[("creationTime" .=) <$> _rcCreationTime,
("writersCanEditPermissions" .=) <$>
_rcWritersCanEditPermissions,
("etag" .=) <$> _rcEtag,
("creatorEmail" .=) <$> _rcCreatorEmail,
("rasterType" .=) <$> _rcRasterType,
("lastModifiedTime" .=) <$> _rcLastModifiedTime,
("lastModifierEmail" .=) <$> _rcLastModifierEmail,
("name" .=) <$> _rcName, ("bbox" .=) <$> _rcBbox,
("processingStatus" .=) <$> _rcProcessingStatus,
("mosaic" .=) <$> _rcMosaic, ("id" .=) <$> _rcId,
("projectId" .=) <$> _rcProjectId,
("draftAccessList" .=) <$> _rcDraftAccessList,
("description" .=) <$> _rcDescription,
("attribution" .=) <$> _rcAttribution,
("tags" .=) <$> _rcTags])
data LineStyleStroke = LineStyleStroke'
{ _lssColor :: !(Maybe Text)
, _lssWidth :: !(Maybe (Textual Double))
, _lssOpacity :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
lineStyleStroke
:: LineStyleStroke
lineStyleStroke =
LineStyleStroke'
{ _lssColor = Nothing
, _lssWidth = Nothing
, _lssOpacity = Nothing
}
lssColor :: Lens' LineStyleStroke (Maybe Text)
lssColor = lens _lssColor (\ s a -> s{_lssColor = a})
lssWidth :: Lens' LineStyleStroke (Maybe Double)
lssWidth
= lens _lssWidth (\ s a -> s{_lssWidth = a}) .
mapping _Coerce
lssOpacity :: Lens' LineStyleStroke (Maybe Double)
lssOpacity
= lens _lssOpacity (\ s a -> s{_lssOpacity = a}) .
mapping _Coerce
instance FromJSON LineStyleStroke where
parseJSON
= withObject "LineStyleStroke"
(\ o ->
LineStyleStroke' <$>
(o .:? "color") <*> (o .:? "width") <*>
(o .:? "opacity"))
instance ToJSON LineStyleStroke where
toJSON LineStyleStroke'{..}
= object
(catMaybes
[("color" .=) <$> _lssColor,
("width" .=) <$> _lssWidth,
("opacity" .=) <$> _lssOpacity])
data RasterCollectionsRastersBatchDeleteResponse =
RasterCollectionsRastersBatchDeleteResponse'
deriving (Eq,Show,Data,Typeable,Generic)
rasterCollectionsRastersBatchDeleteResponse
:: RasterCollectionsRastersBatchDeleteResponse
rasterCollectionsRastersBatchDeleteResponse =
RasterCollectionsRastersBatchDeleteResponse'
instance FromJSON
RasterCollectionsRastersBatchDeleteResponse where
parseJSON
= withObject
"RasterCollectionsRastersBatchDeleteResponse"
(\ o ->
pure RasterCollectionsRastersBatchDeleteResponse')
instance ToJSON
RasterCollectionsRastersBatchDeleteResponse where
toJSON = const emptyObject
data ProcessResponse =
ProcessResponse'
deriving (Eq,Show,Data,Typeable,Generic)
processResponse
:: ProcessResponse
processResponse = ProcessResponse'
instance FromJSON ProcessResponse where
parseJSON
= withObject "ProcessResponse"
(\ o -> pure ProcessResponse')
instance ToJSON ProcessResponse where
toJSON = const emptyObject
data TableColumn = TableColumn'
{ _tcName :: !(Maybe Text)
, _tcType :: !(Maybe TableColumnType)
} deriving (Eq,Show,Data,Typeable,Generic)
tableColumn
:: TableColumn
tableColumn =
TableColumn'
{ _tcName = Nothing
, _tcType = Nothing
}
tcName :: Lens' TableColumn (Maybe Text)
tcName = lens _tcName (\ s a -> s{_tcName = a})
tcType :: Lens' TableColumn (Maybe TableColumnType)
tcType = lens _tcType (\ s a -> s{_tcType = a})
instance FromJSON TableColumn where
parseJSON
= withObject "TableColumn"
(\ o ->
TableColumn' <$> (o .:? "name") <*> (o .:? "type"))
instance ToJSON TableColumn where
toJSON TableColumn'{..}
= object
(catMaybes
[("name" .=) <$> _tcName, ("type" .=) <$> _tcType])
data Asset = Asset'
{ _aCreationTime :: !(Maybe DateTime')
, _aWritersCanEditPermissions :: !(Maybe Bool)
, _aEtag :: !(Maybe Text)
, _aCreatorEmail :: !(Maybe Text)
, _aLastModifiedTime :: !(Maybe DateTime')
, _aLastModifierEmail :: !(Maybe Text)
, _aName :: !(Maybe Text)
, _aBbox :: !(Maybe [Textual Double])
, _aResource :: !(Maybe Text)
, _aId :: !(Maybe Text)
, _aProjectId :: !(Maybe Text)
, _aType :: !(Maybe AssetType)
, _aDescription :: !(Maybe Text)
, _aTags :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
asset
:: Asset
asset =
Asset'
{ _aCreationTime = Nothing
, _aWritersCanEditPermissions = Nothing
, _aEtag = Nothing
, _aCreatorEmail = Nothing
, _aLastModifiedTime = Nothing
, _aLastModifierEmail = Nothing
, _aName = Nothing
, _aBbox = Nothing
, _aResource = Nothing
, _aId = Nothing
, _aProjectId = Nothing
, _aType = Nothing
, _aDescription = Nothing
, _aTags = Nothing
}
aCreationTime :: Lens' Asset (Maybe UTCTime)
aCreationTime
= lens _aCreationTime
(\ s a -> s{_aCreationTime = a})
. mapping _DateTime
aWritersCanEditPermissions :: Lens' Asset (Maybe Bool)
aWritersCanEditPermissions
= lens _aWritersCanEditPermissions
(\ s a -> s{_aWritersCanEditPermissions = a})
aEtag :: Lens' Asset (Maybe Text)
aEtag = lens _aEtag (\ s a -> s{_aEtag = a})
aCreatorEmail :: Lens' Asset (Maybe Text)
aCreatorEmail
= lens _aCreatorEmail
(\ s a -> s{_aCreatorEmail = a})
aLastModifiedTime :: Lens' Asset (Maybe UTCTime)
aLastModifiedTime
= lens _aLastModifiedTime
(\ s a -> s{_aLastModifiedTime = a})
. mapping _DateTime
aLastModifierEmail :: Lens' Asset (Maybe Text)
aLastModifierEmail
= lens _aLastModifierEmail
(\ s a -> s{_aLastModifierEmail = a})
aName :: Lens' Asset (Maybe Text)
aName = lens _aName (\ s a -> s{_aName = a})
aBbox :: Lens' Asset [Double]
aBbox
= lens _aBbox (\ s a -> s{_aBbox = a}) . _Default .
_Coerce
aResource :: Lens' Asset (Maybe Text)
aResource
= lens _aResource (\ s a -> s{_aResource = a})
aId :: Lens' Asset (Maybe Text)
aId = lens _aId (\ s a -> s{_aId = a})
aProjectId :: Lens' Asset (Maybe Text)
aProjectId
= lens _aProjectId (\ s a -> s{_aProjectId = a})
aType :: Lens' Asset (Maybe AssetType)
aType = lens _aType (\ s a -> s{_aType = a})
aDescription :: Lens' Asset (Maybe Text)
aDescription
= lens _aDescription (\ s a -> s{_aDescription = a})
aTags :: Lens' Asset [Text]
aTags
= lens _aTags (\ s a -> s{_aTags = a}) . _Default .
_Coerce
instance FromJSON Asset where
parseJSON
= withObject "Asset"
(\ o ->
Asset' <$>
(o .:? "creationTime") <*>
(o .:? "writersCanEditPermissions")
<*> (o .:? "etag")
<*> (o .:? "creatorEmail")
<*> (o .:? "lastModifiedTime")
<*> (o .:? "lastModifierEmail")
<*> (o .:? "name")
<*> (o .:? "bbox" .!= mempty)
<*> (o .:? "resource")
<*> (o .:? "id")
<*> (o .:? "projectId")
<*> (o .:? "type")
<*> (o .:? "description")
<*> (o .:? "tags" .!= mempty))
instance ToJSON Asset where
toJSON Asset'{..}
= object
(catMaybes
[("creationTime" .=) <$> _aCreationTime,
("writersCanEditPermissions" .=) <$>
_aWritersCanEditPermissions,
("etag" .=) <$> _aEtag,
("creatorEmail" .=) <$> _aCreatorEmail,
("lastModifiedTime" .=) <$> _aLastModifiedTime,
("lastModifierEmail" .=) <$> _aLastModifierEmail,
("name" .=) <$> _aName, ("bbox" .=) <$> _aBbox,
("resource" .=) <$> _aResource, ("id" .=) <$> _aId,
("projectId" .=) <$> _aProjectId,
("type" .=) <$> _aType,
("description" .=) <$> _aDescription,
("tags" .=) <$> _aTags])
data ScaledShape = ScaledShape'
{ _ssBOrder :: !(Maybe BOrder)
, _ssFill :: !(Maybe Color)
, _ssShape :: !(Maybe ScaledShapeShape)
} deriving (Eq,Show,Data,Typeable,Generic)
scaledShape
:: ScaledShape
scaledShape =
ScaledShape'
{ _ssBOrder = Nothing
, _ssFill = Nothing
, _ssShape = Nothing
}
ssBOrder :: Lens' ScaledShape (Maybe BOrder)
ssBOrder = lens _ssBOrder (\ s a -> s{_ssBOrder = a})
ssFill :: Lens' ScaledShape (Maybe Color)
ssFill = lens _ssFill (\ s a -> s{_ssFill = a})
ssShape :: Lens' ScaledShape (Maybe ScaledShapeShape)
ssShape = lens _ssShape (\ s a -> s{_ssShape = a})
instance FromJSON ScaledShape where
parseJSON
= withObject "ScaledShape"
(\ o ->
ScaledShape' <$>
(o .:? "border") <*> (o .:? "fill") <*>
(o .:? "shape"))
instance ToJSON ScaledShape where
toJSON ScaledShape'{..}
= object
(catMaybes
[("border" .=) <$> _ssBOrder,
("fill" .=) <$> _ssFill, ("shape" .=) <$> _ssShape])
data FeaturesBatchDeleteRequest = FeaturesBatchDeleteRequest'
{ _fbdrPrimaryKeys :: !(Maybe [Text])
, _fbdrGxIds :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
featuresBatchDeleteRequest
:: FeaturesBatchDeleteRequest
featuresBatchDeleteRequest =
FeaturesBatchDeleteRequest'
{ _fbdrPrimaryKeys = Nothing
, _fbdrGxIds = Nothing
}
fbdrPrimaryKeys :: Lens' FeaturesBatchDeleteRequest [Text]
fbdrPrimaryKeys
= lens _fbdrPrimaryKeys
(\ s a -> s{_fbdrPrimaryKeys = a})
. _Default
. _Coerce
fbdrGxIds :: Lens' FeaturesBatchDeleteRequest [Text]
fbdrGxIds
= lens _fbdrGxIds (\ s a -> s{_fbdrGxIds = a}) .
_Default
. _Coerce
instance FromJSON FeaturesBatchDeleteRequest where
parseJSON
= withObject "FeaturesBatchDeleteRequest"
(\ o ->
FeaturesBatchDeleteRequest' <$>
(o .:? "primaryKeys" .!= mempty) <*>
(o .:? "gx_ids" .!= mempty))
instance ToJSON FeaturesBatchDeleteRequest where
toJSON FeaturesBatchDeleteRequest'{..}
= object
(catMaybes
[("primaryKeys" .=) <$> _fbdrPrimaryKeys,
("gx_ids" .=) <$> _fbdrGxIds])
data Icon = Icon'
{ _iName :: !(Maybe Text)
, _iId :: !(Maybe Text)
, _iDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
icon
:: Icon
icon =
Icon'
{ _iName = Nothing
, _iId = Nothing
, _iDescription = Nothing
}
iName :: Lens' Icon (Maybe Text)
iName = lens _iName (\ s a -> s{_iName = a})
iId :: Lens' Icon (Maybe Text)
iId = lens _iId (\ s a -> s{_iId = a})
iDescription :: Lens' Icon (Maybe Text)
iDescription
= lens _iDescription (\ s a -> s{_iDescription = a})
instance FromJSON Icon where
parseJSON
= withObject "Icon"
(\ o ->
Icon' <$>
(o .:? "name") <*> (o .:? "id") <*>
(o .:? "description"))
instance ToJSON Icon where
toJSON Icon'{..}
= object
(catMaybes
[("name" .=) <$> _iName, ("id" .=) <$> _iId,
("description" .=) <$> _iDescription])
data ParentsListResponse = ParentsListResponse'
{ _plrNextPageToken :: !(Maybe Text)
, _plrParents :: !(Maybe [Parent])
} deriving (Eq,Show,Data,Typeable,Generic)
parentsListResponse
:: ParentsListResponse
parentsListResponse =
ParentsListResponse'
{ _plrNextPageToken = Nothing
, _plrParents = Nothing
}
plrNextPageToken :: Lens' ParentsListResponse (Maybe Text)
plrNextPageToken
= lens _plrNextPageToken
(\ s a -> s{_plrNextPageToken = a})
plrParents :: Lens' ParentsListResponse [Parent]
plrParents
= lens _plrParents (\ s a -> s{_plrParents = a}) .
_Default
. _Coerce
instance FromJSON ParentsListResponse where
parseJSON
= withObject "ParentsListResponse"
(\ o ->
ParentsListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "parents" .!= mempty))
instance ToJSON ParentsListResponse where
toJSON ParentsListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _plrNextPageToken,
("parents" .=) <$> _plrParents])
data FeaturesListResponse = FeaturesListResponse'
{ _flrNextPageToken :: !(Maybe Text)
, _flrAllowedQueriesPerSecond :: !(Maybe (Textual Double))
, _flrSchema :: !(Maybe Schema)
, _flrFeatures :: !(Maybe [Feature])
, _flrType :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
featuresListResponse
:: FeaturesListResponse
featuresListResponse =
FeaturesListResponse'
{ _flrNextPageToken = Nothing
, _flrAllowedQueriesPerSecond = Nothing
, _flrSchema = Nothing
, _flrFeatures = Nothing
, _flrType = "FeatureCollection"
}
flrNextPageToken :: Lens' FeaturesListResponse (Maybe Text)
flrNextPageToken
= lens _flrNextPageToken
(\ s a -> s{_flrNextPageToken = a})
flrAllowedQueriesPerSecond :: Lens' FeaturesListResponse (Maybe Double)
flrAllowedQueriesPerSecond
= lens _flrAllowedQueriesPerSecond
(\ s a -> s{_flrAllowedQueriesPerSecond = a})
. mapping _Coerce
flrSchema :: Lens' FeaturesListResponse (Maybe Schema)
flrSchema
= lens _flrSchema (\ s a -> s{_flrSchema = a})
flrFeatures :: Lens' FeaturesListResponse [Feature]
flrFeatures
= lens _flrFeatures (\ s a -> s{_flrFeatures = a}) .
_Default
. _Coerce
flrType :: Lens' FeaturesListResponse Text
flrType = lens _flrType (\ s a -> s{_flrType = a})
instance FromJSON FeaturesListResponse where
parseJSON
= withObject "FeaturesListResponse"
(\ o ->
FeaturesListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "allowedQueriesPerSecond")
<*> (o .:? "schema")
<*> (o .:? "features" .!= mempty)
<*> (o .:? "type" .!= "FeatureCollection"))
instance ToJSON FeaturesListResponse where
toJSON FeaturesListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _flrNextPageToken,
("allowedQueriesPerSecond" .=) <$>
_flrAllowedQueriesPerSecond,
("schema" .=) <$> _flrSchema,
("features" .=) <$> _flrFeatures,
Just ("type" .= _flrType)])
data RasterCollectionsRastersBatchInsertResponse =
RasterCollectionsRastersBatchInsertResponse'
deriving (Eq,Show,Data,Typeable,Generic)
rasterCollectionsRastersBatchInsertResponse
:: RasterCollectionsRastersBatchInsertResponse
rasterCollectionsRastersBatchInsertResponse =
RasterCollectionsRastersBatchInsertResponse'
instance FromJSON
RasterCollectionsRastersBatchInsertResponse where
parseJSON
= withObject
"RasterCollectionsRastersBatchInsertResponse"
(\ o ->
pure RasterCollectionsRastersBatchInsertResponse')
instance ToJSON
RasterCollectionsRastersBatchInsertResponse where
toJSON = const emptyObject
data IconsListResponse = IconsListResponse'
{ _ilrNextPageToken :: !(Maybe Text)
, _ilrIcons :: !(Maybe [Icon])
} deriving (Eq,Show,Data,Typeable,Generic)
iconsListResponse
:: IconsListResponse
iconsListResponse =
IconsListResponse'
{ _ilrNextPageToken = Nothing
, _ilrIcons = Nothing
}
ilrNextPageToken :: Lens' IconsListResponse (Maybe Text)
ilrNextPageToken
= lens _ilrNextPageToken
(\ s a -> s{_ilrNextPageToken = a})
ilrIcons :: Lens' IconsListResponse [Icon]
ilrIcons
= lens _ilrIcons (\ s a -> s{_ilrIcons = a}) .
_Default
. _Coerce
instance FromJSON IconsListResponse where
parseJSON
= withObject "IconsListResponse"
(\ o ->
IconsListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "icons" .!= mempty))
instance ToJSON IconsListResponse where
toJSON IconsListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _ilrNextPageToken,
("icons" .=) <$> _ilrIcons])
data LabelStyle = LabelStyle'
{ _lsFontStyle :: !(Maybe LabelStyleFontStyle)
, _lsColor :: !(Maybe Text)
, _lsSize :: !(Maybe (Textual Double))
, _lsOpacity :: !(Maybe (Textual Double))
, _lsOutline :: !(Maybe Color)
, _lsFontWeight :: !(Maybe LabelStyleFontWeight)
, _lsColumn :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
labelStyle
:: LabelStyle
labelStyle =
LabelStyle'
{ _lsFontStyle = Nothing
, _lsColor = Nothing
, _lsSize = Nothing
, _lsOpacity = Nothing
, _lsOutline = Nothing
, _lsFontWeight = Nothing
, _lsColumn = Nothing
}
lsFontStyle :: Lens' LabelStyle (Maybe LabelStyleFontStyle)
lsFontStyle
= lens _lsFontStyle (\ s a -> s{_lsFontStyle = a})
lsColor :: Lens' LabelStyle (Maybe Text)
lsColor = lens _lsColor (\ s a -> s{_lsColor = a})
lsSize :: Lens' LabelStyle (Maybe Double)
lsSize
= lens _lsSize (\ s a -> s{_lsSize = a}) .
mapping _Coerce
lsOpacity :: Lens' LabelStyle (Maybe Double)
lsOpacity
= lens _lsOpacity (\ s a -> s{_lsOpacity = a}) .
mapping _Coerce
lsOutline :: Lens' LabelStyle (Maybe Color)
lsOutline
= lens _lsOutline (\ s a -> s{_lsOutline = a})
lsFontWeight :: Lens' LabelStyle (Maybe LabelStyleFontWeight)
lsFontWeight
= lens _lsFontWeight (\ s a -> s{_lsFontWeight = a})
lsColumn :: Lens' LabelStyle (Maybe Text)
lsColumn = lens _lsColumn (\ s a -> s{_lsColumn = a})
instance FromJSON LabelStyle where
parseJSON
= withObject "LabelStyle"
(\ o ->
LabelStyle' <$>
(o .:? "fontStyle") <*> (o .:? "color") <*>
(o .:? "size")
<*> (o .:? "opacity")
<*> (o .:? "outline")
<*> (o .:? "fontWeight")
<*> (o .:? "column"))
instance ToJSON LabelStyle where
toJSON LabelStyle'{..}
= object
(catMaybes
[("fontStyle" .=) <$> _lsFontStyle,
("color" .=) <$> _lsColor, ("size" .=) <$> _lsSize,
("opacity" .=) <$> _lsOpacity,
("outline" .=) <$> _lsOutline,
("fontWeight" .=) <$> _lsFontWeight,
("column" .=) <$> _lsColumn])
newtype RasterCollectionsRasterBatchDeleteRequest = RasterCollectionsRasterBatchDeleteRequest'
{ _rcrbdrIds :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
rasterCollectionsRasterBatchDeleteRequest
:: RasterCollectionsRasterBatchDeleteRequest
rasterCollectionsRasterBatchDeleteRequest =
RasterCollectionsRasterBatchDeleteRequest'
{ _rcrbdrIds = Nothing
}
rcrbdrIds :: Lens' RasterCollectionsRasterBatchDeleteRequest [Text]
rcrbdrIds
= lens _rcrbdrIds (\ s a -> s{_rcrbdrIds = a}) .
_Default
. _Coerce
instance FromJSON
RasterCollectionsRasterBatchDeleteRequest where
parseJSON
= withObject
"RasterCollectionsRasterBatchDeleteRequest"
(\ o ->
RasterCollectionsRasterBatchDeleteRequest' <$>
(o .:? "ids" .!= mempty))
instance ToJSON
RasterCollectionsRasterBatchDeleteRequest where
toJSON RasterCollectionsRasterBatchDeleteRequest'{..}
= object (catMaybes [("ids" .=) <$> _rcrbdrIds])
data Schema = Schema'
{ _sPrimaryKey :: !(Maybe Text)
, _sColumns :: !(Maybe [TableColumn])
, _sPrimaryGeometry :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
schema
:: Schema
schema =
Schema'
{ _sPrimaryKey = Nothing
, _sColumns = Nothing
, _sPrimaryGeometry = Nothing
}
sPrimaryKey :: Lens' Schema (Maybe Text)
sPrimaryKey
= lens _sPrimaryKey (\ s a -> s{_sPrimaryKey = a})
sColumns :: Lens' Schema [TableColumn]
sColumns
= lens _sColumns (\ s a -> s{_sColumns = a}) .
_Default
. _Coerce
sPrimaryGeometry :: Lens' Schema (Maybe Text)
sPrimaryGeometry
= lens _sPrimaryGeometry
(\ s a -> s{_sPrimaryGeometry = a})
instance FromJSON Schema where
parseJSON
= withObject "Schema"
(\ o ->
Schema' <$>
(o .:? "primaryKey") <*> (o .:? "columns" .!= mempty)
<*> (o .:? "primaryGeometry"))
instance ToJSON Schema where
toJSON Schema'{..}
= object
(catMaybes
[("primaryKey" .=) <$> _sPrimaryKey,
("columns" .=) <$> _sColumns,
("primaryGeometry" .=) <$> _sPrimaryGeometry])
data MapItem =
MapItem'
deriving (Eq,Show,Data,Typeable,Generic)
mapItem
:: MapItem
mapItem = MapItem'
instance FromJSON MapItem where
parseJSON
= withObject "MapItem" (\ o -> pure MapItem')
instance ToJSON MapItem where
toJSON = const emptyObject
newtype RasterCollectionsRastersBatchInsertRequest = RasterCollectionsRastersBatchInsertRequest'
{ _rcrbirIds :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
rasterCollectionsRastersBatchInsertRequest
:: RasterCollectionsRastersBatchInsertRequest
rasterCollectionsRastersBatchInsertRequest =
RasterCollectionsRastersBatchInsertRequest'
{ _rcrbirIds = Nothing
}
rcrbirIds :: Lens' RasterCollectionsRastersBatchInsertRequest [Text]
rcrbirIds
= lens _rcrbirIds (\ s a -> s{_rcrbirIds = a}) .
_Default
. _Coerce
instance FromJSON
RasterCollectionsRastersBatchInsertRequest where
parseJSON
= withObject
"RasterCollectionsRastersBatchInsertRequest"
(\ o ->
RasterCollectionsRastersBatchInsertRequest' <$>
(o .:? "ids" .!= mempty))
instance ToJSON
RasterCollectionsRastersBatchInsertRequest where
toJSON
RasterCollectionsRastersBatchInsertRequest'{..}
= object (catMaybes [("ids" .=) <$> _rcrbirIds])
data PublishedMap = PublishedMap'
{ _pmDefaultViewport :: !(Maybe [Textual Double])
, _pmContents :: !(Maybe [MapItem])
, _pmName :: !(Maybe Text)
, _pmId :: !(Maybe Text)
, _pmProjectId :: !(Maybe Text)
, _pmDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
publishedMap
:: PublishedMap
publishedMap =
PublishedMap'
{ _pmDefaultViewport = Nothing
, _pmContents = Nothing
, _pmName = Nothing
, _pmId = Nothing
, _pmProjectId = Nothing
, _pmDescription = Nothing
}
pmDefaultViewport :: Lens' PublishedMap [Double]
pmDefaultViewport
= lens _pmDefaultViewport
(\ s a -> s{_pmDefaultViewport = a})
. _Default
. _Coerce
pmContents :: Lens' PublishedMap [MapItem]
pmContents
= lens _pmContents (\ s a -> s{_pmContents = a}) .
_Default
. _Coerce
pmName :: Lens' PublishedMap (Maybe Text)
pmName = lens _pmName (\ s a -> s{_pmName = a})
pmId :: Lens' PublishedMap (Maybe Text)
pmId = lens _pmId (\ s a -> s{_pmId = a})
pmProjectId :: Lens' PublishedMap (Maybe Text)
pmProjectId
= lens _pmProjectId (\ s a -> s{_pmProjectId = a})
pmDescription :: Lens' PublishedMap (Maybe Text)
pmDescription
= lens _pmDescription
(\ s a -> s{_pmDescription = a})
instance FromJSON PublishedMap where
parseJSON
= withObject "PublishedMap"
(\ o ->
PublishedMap' <$>
(o .:? "defaultViewport") <*> (o .:? "contents") <*>
(o .:? "name")
<*> (o .:? "id")
<*> (o .:? "projectId")
<*> (o .:? "description"))
instance ToJSON PublishedMap where
toJSON PublishedMap'{..}
= object
(catMaybes
[("defaultViewport" .=) <$> _pmDefaultViewport,
("contents" .=) <$> _pmContents,
("name" .=) <$> _pmName, ("id" .=) <$> _pmId,
("projectId" .=) <$> _pmProjectId,
("description" .=) <$> _pmDescription])
data AcquisitionTime = AcquisitionTime'
{ _atStart :: !(Maybe DateTime')
, _atPrecision :: !(Maybe AcquisitionTimePrecision)
, _atEnd :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
acquisitionTime
:: AcquisitionTime
acquisitionTime =
AcquisitionTime'
{ _atStart = Nothing
, _atPrecision = Nothing
, _atEnd = Nothing
}
atStart :: Lens' AcquisitionTime (Maybe UTCTime)
atStart
= lens _atStart (\ s a -> s{_atStart = a}) .
mapping _DateTime
atPrecision :: Lens' AcquisitionTime (Maybe AcquisitionTimePrecision)
atPrecision
= lens _atPrecision (\ s a -> s{_atPrecision = a})
atEnd :: Lens' AcquisitionTime (Maybe UTCTime)
atEnd
= lens _atEnd (\ s a -> s{_atEnd = a}) .
mapping _DateTime
instance FromJSON AcquisitionTime where
parseJSON
= withObject "AcquisitionTime"
(\ o ->
AcquisitionTime' <$>
(o .:? "start") <*> (o .:? "precision") <*>
(o .:? "end"))
instance ToJSON AcquisitionTime where
toJSON AcquisitionTime'{..}
= object
(catMaybes
[("start" .=) <$> _atStart,
("precision" .=) <$> _atPrecision,
("end" .=) <$> _atEnd])
data TablesListResponse = TablesListResponse'
{ _tlrNextPageToken :: !(Maybe Base64)
, _tlrTables :: !(Maybe [Table])
} deriving (Eq,Show,Data,Typeable,Generic)
tablesListResponse
:: TablesListResponse
tablesListResponse =
TablesListResponse'
{ _tlrNextPageToken = Nothing
, _tlrTables = Nothing
}
tlrNextPageToken :: Lens' TablesListResponse (Maybe ByteString)
tlrNextPageToken
= lens _tlrNextPageToken
(\ s a -> s{_tlrNextPageToken = a})
. mapping _Base64
tlrTables :: Lens' TablesListResponse [Table]
tlrTables
= lens _tlrTables (\ s a -> s{_tlrTables = a}) .
_Default
. _Coerce
instance FromJSON TablesListResponse where
parseJSON
= withObject "TablesListResponse"
(\ o ->
TablesListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "tables" .!= mempty))
instance ToJSON TablesListResponse where
toJSON TablesListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _tlrNextPageToken,
("tables" .=) <$> _tlrTables])
data IconStyle = IconStyle'
{ _isScaledShape :: !(Maybe ScaledShape)
, _isScalingFunction :: !(Maybe ScalingFunction)
, _isName :: !(Maybe Text)
, _isId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
iconStyle
:: IconStyle
iconStyle =
IconStyle'
{ _isScaledShape = Nothing
, _isScalingFunction = Nothing
, _isName = Nothing
, _isId = Nothing
}
isScaledShape :: Lens' IconStyle (Maybe ScaledShape)
isScaledShape
= lens _isScaledShape
(\ s a -> s{_isScaledShape = a})
isScalingFunction :: Lens' IconStyle (Maybe ScalingFunction)
isScalingFunction
= lens _isScalingFunction
(\ s a -> s{_isScalingFunction = a})
isName :: Lens' IconStyle (Maybe Text)
isName = lens _isName (\ s a -> s{_isName = a})
isId :: Lens' IconStyle (Maybe Text)
isId = lens _isId (\ s a -> s{_isId = a})
instance FromJSON IconStyle where
parseJSON
= withObject "IconStyle"
(\ o ->
IconStyle' <$>
(o .:? "scaledShape") <*> (o .:? "scalingFunction")
<*> (o .:? "name")
<*> (o .:? "id"))
instance ToJSON IconStyle where
toJSON IconStyle'{..}
= object
(catMaybes
[("scaledShape" .=) <$> _isScaledShape,
("scalingFunction" .=) <$> _isScalingFunction,
("name" .=) <$> _isName, ("id" .=) <$> _isId])
data DisplayRule = DisplayRule'
{ _drPointOptions :: !(Maybe PointStyle)
, _drPolygonOptions :: !(Maybe PolygonStyle)
, _drZoomLevels :: !(Maybe ZoomLevels)
, _drFilters :: !(Maybe [Filter])
, _drName :: !(Maybe Text)
, _drLineOptions :: !(Maybe LineStyle)
} deriving (Eq,Show,Data,Typeable,Generic)
displayRule
:: DisplayRule
displayRule =
DisplayRule'
{ _drPointOptions = Nothing
, _drPolygonOptions = Nothing
, _drZoomLevels = Nothing
, _drFilters = Nothing
, _drName = Nothing
, _drLineOptions = Nothing
}
drPointOptions :: Lens' DisplayRule (Maybe PointStyle)
drPointOptions
= lens _drPointOptions
(\ s a -> s{_drPointOptions = a})
drPolygonOptions :: Lens' DisplayRule (Maybe PolygonStyle)
drPolygonOptions
= lens _drPolygonOptions
(\ s a -> s{_drPolygonOptions = a})
drZoomLevels :: Lens' DisplayRule (Maybe ZoomLevels)
drZoomLevels
= lens _drZoomLevels (\ s a -> s{_drZoomLevels = a})
drFilters :: Lens' DisplayRule [Filter]
drFilters
= lens _drFilters (\ s a -> s{_drFilters = a}) .
_Default
. _Coerce
drName :: Lens' DisplayRule (Maybe Text)
drName = lens _drName (\ s a -> s{_drName = a})
drLineOptions :: Lens' DisplayRule (Maybe LineStyle)
drLineOptions
= lens _drLineOptions
(\ s a -> s{_drLineOptions = a})
instance FromJSON DisplayRule where
parseJSON
= withObject "DisplayRule"
(\ o ->
DisplayRule' <$>
(o .:? "pointOptions") <*> (o .:? "polygonOptions")
<*> (o .:? "zoomLevels")
<*> (o .:? "filters" .!= mempty)
<*> (o .:? "name")
<*> (o .:? "lineOptions"))
instance ToJSON DisplayRule where
toJSON DisplayRule'{..}
= object
(catMaybes
[("pointOptions" .=) <$> _drPointOptions,
("polygonOptions" .=) <$> _drPolygonOptions,
("zoomLevels" .=) <$> _drZoomLevels,
("filters" .=) <$> _drFilters,
("name" .=) <$> _drName,
("lineOptions" .=) <$> _drLineOptions])
data BOrder = BOrder'
{ _boColor :: !(Maybe Text)
, _boWidth :: !(Maybe (Textual Double))
, _boOpacity :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
bOrder
:: BOrder
bOrder =
BOrder'
{ _boColor = Nothing
, _boWidth = Nothing
, _boOpacity = Nothing
}
boColor :: Lens' BOrder (Maybe Text)
boColor = lens _boColor (\ s a -> s{_boColor = a})
boWidth :: Lens' BOrder (Maybe Double)
boWidth
= lens _boWidth (\ s a -> s{_boWidth = a}) .
mapping _Coerce
boOpacity :: Lens' BOrder (Maybe Double)
boOpacity
= lens _boOpacity (\ s a -> s{_boOpacity = a}) .
mapping _Coerce
instance FromJSON BOrder where
parseJSON
= withObject "BOrder"
(\ o ->
BOrder' <$>
(o .:? "color") <*> (o .:? "width") <*>
(o .:? "opacity"))
instance ToJSON BOrder where
toJSON BOrder'{..}
= object
(catMaybes
[("color" .=) <$> _boColor,
("width" .=) <$> _boWidth,
("opacity" .=) <$> _boOpacity])
data Map = Map'
{ _mCreationTime :: !(Maybe DateTime')
, _mWritersCanEditPermissions :: !(Maybe Bool)
, _mEtag :: !(Maybe Text)
, _mDefaultViewport :: !(Maybe [Textual Double])
, _mContents :: !(Maybe [MapItem])
, _mPublishingStatus :: !(Maybe MapPublishingStatus)
, _mCreatorEmail :: !(Maybe Text)
, _mLastModifiedTime :: !(Maybe DateTime')
, _mLastModifierEmail :: !(Maybe Text)
, _mVersions :: !(Maybe [Text])
, _mName :: !(Maybe Text)
, _mBbox :: !(Maybe [Textual Double])
, _mProcessingStatus :: !(Maybe MapProcessingStatus)
, _mId :: !(Maybe Text)
, _mProjectId :: !(Maybe Text)
, _mDraftAccessList :: !(Maybe Text)
, _mPublishedAccessList :: !(Maybe Text)
, _mDescription :: !(Maybe Text)
, _mTags :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
map'
:: Map
map' =
Map'
{ _mCreationTime = Nothing
, _mWritersCanEditPermissions = Nothing
, _mEtag = Nothing
, _mDefaultViewport = Nothing
, _mContents = Nothing
, _mPublishingStatus = Nothing
, _mCreatorEmail = Nothing
, _mLastModifiedTime = Nothing
, _mLastModifierEmail = Nothing
, _mVersions = Nothing
, _mName = Nothing
, _mBbox = Nothing
, _mProcessingStatus = Nothing
, _mId = Nothing
, _mProjectId = Nothing
, _mDraftAccessList = Nothing
, _mPublishedAccessList = Nothing
, _mDescription = Nothing
, _mTags = Nothing
}
mCreationTime :: Lens' Map (Maybe UTCTime)
mCreationTime
= lens _mCreationTime
(\ s a -> s{_mCreationTime = a})
. mapping _DateTime
mWritersCanEditPermissions :: Lens' Map (Maybe Bool)
mWritersCanEditPermissions
= lens _mWritersCanEditPermissions
(\ s a -> s{_mWritersCanEditPermissions = a})
mEtag :: Lens' Map (Maybe Text)
mEtag = lens _mEtag (\ s a -> s{_mEtag = a})
mDefaultViewport :: Lens' Map [Double]
mDefaultViewport
= lens _mDefaultViewport
(\ s a -> s{_mDefaultViewport = a})
. _Default
. _Coerce
mContents :: Lens' Map [MapItem]
mContents
= lens _mContents (\ s a -> s{_mContents = a}) .
_Default
. _Coerce
mPublishingStatus :: Lens' Map (Maybe MapPublishingStatus)
mPublishingStatus
= lens _mPublishingStatus
(\ s a -> s{_mPublishingStatus = a})
mCreatorEmail :: Lens' Map (Maybe Text)
mCreatorEmail
= lens _mCreatorEmail
(\ s a -> s{_mCreatorEmail = a})
mLastModifiedTime :: Lens' Map (Maybe UTCTime)
mLastModifiedTime
= lens _mLastModifiedTime
(\ s a -> s{_mLastModifiedTime = a})
. mapping _DateTime
mLastModifierEmail :: Lens' Map (Maybe Text)
mLastModifierEmail
= lens _mLastModifierEmail
(\ s a -> s{_mLastModifierEmail = a})
mVersions :: Lens' Map [Text]
mVersions
= lens _mVersions (\ s a -> s{_mVersions = a}) .
_Default
. _Coerce
mName :: Lens' Map (Maybe Text)
mName = lens _mName (\ s a -> s{_mName = a})
mBbox :: Lens' Map [Double]
mBbox
= lens _mBbox (\ s a -> s{_mBbox = a}) . _Default .
_Coerce
mProcessingStatus :: Lens' Map (Maybe MapProcessingStatus)
mProcessingStatus
= lens _mProcessingStatus
(\ s a -> s{_mProcessingStatus = a})
mId :: Lens' Map (Maybe Text)
mId = lens _mId (\ s a -> s{_mId = a})
mProjectId :: Lens' Map (Maybe Text)
mProjectId
= lens _mProjectId (\ s a -> s{_mProjectId = a})
mDraftAccessList :: Lens' Map (Maybe Text)
mDraftAccessList
= lens _mDraftAccessList
(\ s a -> s{_mDraftAccessList = a})
mPublishedAccessList :: Lens' Map (Maybe Text)
mPublishedAccessList
= lens _mPublishedAccessList
(\ s a -> s{_mPublishedAccessList = a})
mDescription :: Lens' Map (Maybe Text)
mDescription
= lens _mDescription (\ s a -> s{_mDescription = a})
mTags :: Lens' Map [Text]
mTags
= lens _mTags (\ s a -> s{_mTags = a}) . _Default .
_Coerce
instance FromJSON Map where
parseJSON
= withObject "Map"
(\ o ->
Map' <$>
(o .:? "creationTime") <*>
(o .:? "writersCanEditPermissions")
<*> (o .:? "etag")
<*> (o .:? "defaultViewport")
<*> (o .:? "contents")
<*> (o .:? "publishingStatus")
<*> (o .:? "creatorEmail")
<*> (o .:? "lastModifiedTime")
<*> (o .:? "lastModifierEmail")
<*> (o .:? "versions" .!= mempty)
<*> (o .:? "name")
<*> (o .:? "bbox" .!= mempty)
<*> (o .:? "processingStatus")
<*> (o .:? "id")
<*> (o .:? "projectId")
<*> (o .:? "draftAccessList")
<*> (o .:? "publishedAccessList")
<*> (o .:? "description")
<*> (o .:? "tags"))
instance ToJSON Map where
toJSON Map'{..}
= object
(catMaybes
[("creationTime" .=) <$> _mCreationTime,
("writersCanEditPermissions" .=) <$>
_mWritersCanEditPermissions,
("etag" .=) <$> _mEtag,
("defaultViewport" .=) <$> _mDefaultViewport,
("contents" .=) <$> _mContents,
("publishingStatus" .=) <$> _mPublishingStatus,
("creatorEmail" .=) <$> _mCreatorEmail,
("lastModifiedTime" .=) <$> _mLastModifiedTime,
("lastModifierEmail" .=) <$> _mLastModifierEmail,
("versions" .=) <$> _mVersions,
("name" .=) <$> _mName, ("bbox" .=) <$> _mBbox,
("processingStatus" .=) <$> _mProcessingStatus,
("id" .=) <$> _mId, ("projectId" .=) <$> _mProjectId,
("draftAccessList" .=) <$> _mDraftAccessList,
("publishedAccessList" .=) <$> _mPublishedAccessList,
("description" .=) <$> _mDescription,
("tags" .=) <$> _mTags])
data RasterCollectionsRastersListResponse = RasterCollectionsRastersListResponse'
{ _rcrlrNextPageToken :: !(Maybe Text)
, _rcrlrRasters :: !(Maybe [RasterCollectionsRaster])
} deriving (Eq,Show,Data,Typeable,Generic)
rasterCollectionsRastersListResponse
:: RasterCollectionsRastersListResponse
rasterCollectionsRastersListResponse =
RasterCollectionsRastersListResponse'
{ _rcrlrNextPageToken = Nothing
, _rcrlrRasters = Nothing
}
rcrlrNextPageToken :: Lens' RasterCollectionsRastersListResponse (Maybe Text)
rcrlrNextPageToken
= lens _rcrlrNextPageToken
(\ s a -> s{_rcrlrNextPageToken = a})
rcrlrRasters :: Lens' RasterCollectionsRastersListResponse [RasterCollectionsRaster]
rcrlrRasters
= lens _rcrlrRasters (\ s a -> s{_rcrlrRasters = a})
. _Default
. _Coerce
instance FromJSON
RasterCollectionsRastersListResponse where
parseJSON
= withObject "RasterCollectionsRastersListResponse"
(\ o ->
RasterCollectionsRastersListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "rasters" .!= mempty))
instance ToJSON RasterCollectionsRastersListResponse
where
toJSON RasterCollectionsRastersListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _rcrlrNextPageToken,
("rasters" .=) <$> _rcrlrRasters])
data GeoJSONMultiLineString = GeoJSONMultiLineString'
{ _gjmlsCoordinates :: !(Maybe [[[Textual Double]]])
, _gjmlsType :: !(Maybe GeoJSONMultiLineStringType)
} deriving (Eq,Show,Data,Typeable,Generic)
geoJSONMultiLineString
:: GeoJSONMultiLineString
geoJSONMultiLineString =
GeoJSONMultiLineString'
{ _gjmlsCoordinates = Nothing
, _gjmlsType = Nothing
}
gjmlsCoordinates :: Lens' GeoJSONMultiLineString [[[Double]]]
gjmlsCoordinates
= lens _gjmlsCoordinates
(\ s a -> s{_gjmlsCoordinates = a})
. _Default
. _Coerce
gjmlsType :: Lens' GeoJSONMultiLineString (Maybe GeoJSONMultiLineStringType)
gjmlsType
= lens _gjmlsType (\ s a -> s{_gjmlsType = a})
instance FromJSON GeoJSONMultiLineString where
parseJSON
= withObject "GeoJSONMultiLineString"
(\ o ->
GeoJSONMultiLineString' <$>
(o .:? "coordinates" .!= mempty) <*> (o .:? "type"))
instance ToJSON GeoJSONMultiLineString where
toJSON GeoJSONMultiLineString'{..}
= object
(catMaybes
[("coordinates" .=) <$> _gjmlsCoordinates,
("type" .=) <$> _gjmlsType])
data ScalingFunction = ScalingFunction'
{ _sfValueRange :: !(Maybe ValueRange)
, _sfSizeRange :: !(Maybe SizeRange)
, _sfScalingType :: !(Maybe ScalingFunctionScalingType)
, _sfColumn :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
scalingFunction
:: ScalingFunction
scalingFunction =
ScalingFunction'
{ _sfValueRange = Nothing
, _sfSizeRange = Nothing
, _sfScalingType = Nothing
, _sfColumn = Nothing
}
sfValueRange :: Lens' ScalingFunction (Maybe ValueRange)
sfValueRange
= lens _sfValueRange (\ s a -> s{_sfValueRange = a})
sfSizeRange :: Lens' ScalingFunction (Maybe SizeRange)
sfSizeRange
= lens _sfSizeRange (\ s a -> s{_sfSizeRange = a})
sfScalingType :: Lens' ScalingFunction (Maybe ScalingFunctionScalingType)
sfScalingType
= lens _sfScalingType
(\ s a -> s{_sfScalingType = a})
sfColumn :: Lens' ScalingFunction (Maybe Text)
sfColumn = lens _sfColumn (\ s a -> s{_sfColumn = a})
instance FromJSON ScalingFunction where
parseJSON
= withObject "ScalingFunction"
(\ o ->
ScalingFunction' <$>
(o .:? "valueRange") <*> (o .:? "sizeRange") <*>
(o .:? "scalingType")
<*> (o .:? "column"))
instance ToJSON ScalingFunction where
toJSON ScalingFunction'{..}
= object
(catMaybes
[("valueRange" .=) <$> _sfValueRange,
("sizeRange" .=) <$> _sfSizeRange,
("scalingType" .=) <$> _sfScalingType,
("column" .=) <$> _sfColumn])
data AssetsListResponse = AssetsListResponse'
{ _alrNextPageToken :: !(Maybe Base64)
, _alrAssets :: !(Maybe [Asset])
} deriving (Eq,Show,Data,Typeable,Generic)
assetsListResponse
:: AssetsListResponse
assetsListResponse =
AssetsListResponse'
{ _alrNextPageToken = Nothing
, _alrAssets = Nothing
}
alrNextPageToken :: Lens' AssetsListResponse (Maybe ByteString)
alrNextPageToken
= lens _alrNextPageToken
(\ s a -> s{_alrNextPageToken = a})
. mapping _Base64
alrAssets :: Lens' AssetsListResponse [Asset]
alrAssets
= lens _alrAssets (\ s a -> s{_alrAssets = a}) .
_Default
. _Coerce
instance FromJSON AssetsListResponse where
parseJSON
= withObject "AssetsListResponse"
(\ o ->
AssetsListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "assets" .!= mempty))
instance ToJSON AssetsListResponse where
toJSON AssetsListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _alrNextPageToken,
("assets" .=) <$> _alrAssets])
data PublishResponse =
PublishResponse'
deriving (Eq,Show,Data,Typeable,Generic)
publishResponse
:: PublishResponse
publishResponse = PublishResponse'
instance FromJSON PublishResponse where
parseJSON
= withObject "PublishResponse"
(\ o -> pure PublishResponse')
instance ToJSON PublishResponse where
toJSON = const emptyObject
data FeaturesBatchInsertRequest = FeaturesBatchInsertRequest'
{ _fbirFeatures :: !(Maybe [Feature])
, _fbirNormalizeGeometries :: !Bool
} deriving (Eq,Show,Data,Typeable,Generic)
featuresBatchInsertRequest
:: FeaturesBatchInsertRequest
featuresBatchInsertRequest =
FeaturesBatchInsertRequest'
{ _fbirFeatures = Nothing
, _fbirNormalizeGeometries = True
}
fbirFeatures :: Lens' FeaturesBatchInsertRequest [Feature]
fbirFeatures
= lens _fbirFeatures (\ s a -> s{_fbirFeatures = a})
. _Default
. _Coerce
fbirNormalizeGeometries :: Lens' FeaturesBatchInsertRequest Bool
fbirNormalizeGeometries
= lens _fbirNormalizeGeometries
(\ s a -> s{_fbirNormalizeGeometries = a})
instance FromJSON FeaturesBatchInsertRequest where
parseJSON
= withObject "FeaturesBatchInsertRequest"
(\ o ->
FeaturesBatchInsertRequest' <$>
(o .:? "features" .!= mempty) <*>
(o .:? "normalizeGeometries" .!= True))
instance ToJSON FeaturesBatchInsertRequest where
toJSON FeaturesBatchInsertRequest'{..}
= object
(catMaybes
[("features" .=) <$> _fbirFeatures,
Just
("normalizeGeometries" .= _fbirNormalizeGeometries)])
newtype Datasource = Datasource'
{ _dId :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
datasource
:: Datasource
datasource =
Datasource'
{ _dId = Nothing
}
dId :: Lens' Datasource (Maybe Text)
dId = lens _dId (\ s a -> s{_dId = a})
instance FromJSON Datasource where
parseJSON
= withObject "Datasource"
(\ o -> Datasource' <$> (o .:? "id"))
instance ToJSON Datasource where
toJSON Datasource'{..}
= object (catMaybes [("id" .=) <$> _dId])
data RasterCollectionsRaster = RasterCollectionsRaster'
{ _rcrCreationTime :: !(Maybe DateTime')
, _rcrRasterType :: !Text
, _rcrLastModifiedTime :: !(Maybe DateTime')
, _rcrName :: !(Maybe Text)
, _rcrBbox :: !(Maybe [Textual Double])
, _rcrId :: !(Maybe Text)
, _rcrProjectId :: !(Maybe Text)
, _rcrDescription :: !(Maybe Text)
, _rcrTags :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
rasterCollectionsRaster
:: RasterCollectionsRaster
rasterCollectionsRaster =
RasterCollectionsRaster'
{ _rcrCreationTime = Nothing
, _rcrRasterType = "image"
, _rcrLastModifiedTime = Nothing
, _rcrName = Nothing
, _rcrBbox = Nothing
, _rcrId = Nothing
, _rcrProjectId = Nothing
, _rcrDescription = Nothing
, _rcrTags = Nothing
}
rcrCreationTime :: Lens' RasterCollectionsRaster (Maybe UTCTime)
rcrCreationTime
= lens _rcrCreationTime
(\ s a -> s{_rcrCreationTime = a})
. mapping _DateTime
rcrRasterType :: Lens' RasterCollectionsRaster Text
rcrRasterType
= lens _rcrRasterType
(\ s a -> s{_rcrRasterType = a})
rcrLastModifiedTime :: Lens' RasterCollectionsRaster (Maybe UTCTime)
rcrLastModifiedTime
= lens _rcrLastModifiedTime
(\ s a -> s{_rcrLastModifiedTime = a})
. mapping _DateTime
rcrName :: Lens' RasterCollectionsRaster (Maybe Text)
rcrName = lens _rcrName (\ s a -> s{_rcrName = a})
rcrBbox :: Lens' RasterCollectionsRaster [Double]
rcrBbox
= lens _rcrBbox (\ s a -> s{_rcrBbox = a}) . _Default
. _Coerce
rcrId :: Lens' RasterCollectionsRaster (Maybe Text)
rcrId = lens _rcrId (\ s a -> s{_rcrId = a})
rcrProjectId :: Lens' RasterCollectionsRaster (Maybe Text)
rcrProjectId
= lens _rcrProjectId (\ s a -> s{_rcrProjectId = a})
rcrDescription :: Lens' RasterCollectionsRaster (Maybe Text)
rcrDescription
= lens _rcrDescription
(\ s a -> s{_rcrDescription = a})
rcrTags :: Lens' RasterCollectionsRaster [Text]
rcrTags
= lens _rcrTags (\ s a -> s{_rcrTags = a}) . _Default
. _Coerce
instance FromJSON RasterCollectionsRaster where
parseJSON
= withObject "RasterCollectionsRaster"
(\ o ->
RasterCollectionsRaster' <$>
(o .:? "creationTime") <*>
(o .:? "rasterType" .!= "image")
<*> (o .:? "lastModifiedTime")
<*> (o .:? "name")
<*> (o .:? "bbox" .!= mempty)
<*> (o .:? "id")
<*> (o .:? "projectId")
<*> (o .:? "description")
<*> (o .:? "tags" .!= mempty))
instance ToJSON RasterCollectionsRaster where
toJSON RasterCollectionsRaster'{..}
= object
(catMaybes
[("creationTime" .=) <$> _rcrCreationTime,
Just ("rasterType" .= _rcrRasterType),
("lastModifiedTime" .=) <$> _rcrLastModifiedTime,
("name" .=) <$> _rcrName, ("bbox" .=) <$> _rcrBbox,
("id" .=) <$> _rcrId,
("projectId" .=) <$> _rcrProjectId,
("description" .=) <$> _rcrDescription,
("tags" .=) <$> _rcrTags])
data Filter = Filter'
{ _fOperator :: !(Maybe FilterOperator)
, _fValue :: !(Maybe JSONValue)
, _fColumn :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
filter'
:: Filter
filter' =
Filter'
{ _fOperator = Nothing
, _fValue = Nothing
, _fColumn = Nothing
}
fOperator :: Lens' Filter (Maybe FilterOperator)
fOperator
= lens _fOperator (\ s a -> s{_fOperator = a})
fValue :: Lens' Filter (Maybe JSONValue)
fValue = lens _fValue (\ s a -> s{_fValue = a})
fColumn :: Lens' Filter (Maybe Text)
fColumn = lens _fColumn (\ s a -> s{_fColumn = a})
instance FromJSON Filter where
parseJSON
= withObject "Filter"
(\ o ->
Filter' <$>
(o .:? "operator") <*> (o .:? "value") <*>
(o .:? "column"))
instance ToJSON Filter where
toJSON Filter'{..}
= object
(catMaybes
[("operator" .=) <$> _fOperator,
("value" .=) <$> _fValue,
("column" .=) <$> _fColumn])
data GeoJSONMultiPoint = GeoJSONMultiPoint'
{ _gjmpCoordinates :: !(Maybe [[Textual Double]])
, _gjmpType :: !(Maybe GeoJSONMultiPointType)
} deriving (Eq,Show,Data,Typeable,Generic)
geoJSONMultiPoint
:: GeoJSONMultiPoint
geoJSONMultiPoint =
GeoJSONMultiPoint'
{ _gjmpCoordinates = Nothing
, _gjmpType = Nothing
}
gjmpCoordinates :: Lens' GeoJSONMultiPoint [[Double]]
gjmpCoordinates
= lens _gjmpCoordinates
(\ s a -> s{_gjmpCoordinates = a})
. _Default
. _Coerce
gjmpType :: Lens' GeoJSONMultiPoint (Maybe GeoJSONMultiPointType)
gjmpType = lens _gjmpType (\ s a -> s{_gjmpType = a})
instance FromJSON GeoJSONMultiPoint where
parseJSON
= withObject "GeoJSONMultiPoint"
(\ o ->
GeoJSONMultiPoint' <$>
(o .:? "coordinates" .!= mempty) <*> (o .:? "type"))
instance ToJSON GeoJSONMultiPoint where
toJSON GeoJSONMultiPoint'{..}
= object
(catMaybes
[("coordinates" .=) <$> _gjmpCoordinates,
("type" .=) <$> _gjmpType])
data GeoJSONMultiPolygon = GeoJSONMultiPolygon'
{ _gjsonmpCoordinates :: !(Maybe [[[[Textual Double]]]])
, _gjsonmpType :: !(Maybe GeoJSONMultiPolygonType)
} deriving (Eq,Show,Data,Typeable,Generic)
geoJSONMultiPolygon
:: GeoJSONMultiPolygon
geoJSONMultiPolygon =
GeoJSONMultiPolygon'
{ _gjsonmpCoordinates = Nothing
, _gjsonmpType = Nothing
}
gjsonmpCoordinates :: Lens' GeoJSONMultiPolygon [[[[Double]]]]
gjsonmpCoordinates
= lens _gjsonmpCoordinates
(\ s a -> s{_gjsonmpCoordinates = a})
. _Default
. _Coerce
gjsonmpType :: Lens' GeoJSONMultiPolygon (Maybe GeoJSONMultiPolygonType)
gjsonmpType
= lens _gjsonmpType (\ s a -> s{_gjsonmpType = a})
instance FromJSON GeoJSONMultiPolygon where
parseJSON
= withObject "GeoJSONMultiPolygon"
(\ o ->
GeoJSONMultiPolygon' <$>
(o .:? "coordinates" .!= mempty) <*> (o .:? "type"))
instance ToJSON GeoJSONMultiPolygon where
toJSON GeoJSONMultiPolygon'{..}
= object
(catMaybes
[("coordinates" .=) <$> _gjsonmpCoordinates,
("type" .=) <$> _gjsonmpType])
data Layer = Layer'
{ _layCreationTime :: !(Maybe DateTime')
, _layWritersCanEditPermissions :: !(Maybe Bool)
, _layStyle :: !(Maybe VectorStyle)
, _layEtag :: !(Maybe Text)
, _layDatasourceType :: !(Maybe LayerDatasourceType)
, _layPublishingStatus :: !(Maybe LayerPublishingStatus)
, _layCreatorEmail :: !(Maybe Text)
, _layLayerType :: !(Maybe LayerLayerType)
, _layLastModifiedTime :: !(Maybe DateTime')
, _layDatasources :: !(Maybe [Datasource])
, _layLastModifierEmail :: !(Maybe Text)
, _layName :: !(Maybe Text)
, _layBbox :: !(Maybe [Textual Double])
, _layProcessingStatus :: !(Maybe LayerProcessingStatus)
, _layId :: !(Maybe Text)
, _layProjectId :: !(Maybe Text)
, _layDraftAccessList :: !(Maybe Text)
, _layPublishedAccessList :: !(Maybe Text)
, _layDescription :: !(Maybe Text)
, _layTags :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
layer
:: Layer
layer =
Layer'
{ _layCreationTime = Nothing
, _layWritersCanEditPermissions = Nothing
, _layStyle = Nothing
, _layEtag = Nothing
, _layDatasourceType = Nothing
, _layPublishingStatus = Nothing
, _layCreatorEmail = Nothing
, _layLayerType = Nothing
, _layLastModifiedTime = Nothing
, _layDatasources = Nothing
, _layLastModifierEmail = Nothing
, _layName = Nothing
, _layBbox = Nothing
, _layProcessingStatus = Nothing
, _layId = Nothing
, _layProjectId = Nothing
, _layDraftAccessList = Nothing
, _layPublishedAccessList = Nothing
, _layDescription = Nothing
, _layTags = Nothing
}
layCreationTime :: Lens' Layer (Maybe UTCTime)
layCreationTime
= lens _layCreationTime
(\ s a -> s{_layCreationTime = a})
. mapping _DateTime
layWritersCanEditPermissions :: Lens' Layer (Maybe Bool)
layWritersCanEditPermissions
= lens _layWritersCanEditPermissions
(\ s a -> s{_layWritersCanEditPermissions = a})
layStyle :: Lens' Layer (Maybe VectorStyle)
layStyle = lens _layStyle (\ s a -> s{_layStyle = a})
layEtag :: Lens' Layer (Maybe Text)
layEtag = lens _layEtag (\ s a -> s{_layEtag = a})
layDatasourceType :: Lens' Layer (Maybe LayerDatasourceType)
layDatasourceType
= lens _layDatasourceType
(\ s a -> s{_layDatasourceType = a})
layPublishingStatus :: Lens' Layer (Maybe LayerPublishingStatus)
layPublishingStatus
= lens _layPublishingStatus
(\ s a -> s{_layPublishingStatus = a})
layCreatorEmail :: Lens' Layer (Maybe Text)
layCreatorEmail
= lens _layCreatorEmail
(\ s a -> s{_layCreatorEmail = a})
layLayerType :: Lens' Layer (Maybe LayerLayerType)
layLayerType
= lens _layLayerType (\ s a -> s{_layLayerType = a})
layLastModifiedTime :: Lens' Layer (Maybe UTCTime)
layLastModifiedTime
= lens _layLastModifiedTime
(\ s a -> s{_layLastModifiedTime = a})
. mapping _DateTime
layDatasources :: Lens' Layer [Datasource]
layDatasources
= lens _layDatasources
(\ s a -> s{_layDatasources = a})
. _Default
. _Coerce
layLastModifierEmail :: Lens' Layer (Maybe Text)
layLastModifierEmail
= lens _layLastModifierEmail
(\ s a -> s{_layLastModifierEmail = a})
layName :: Lens' Layer (Maybe Text)
layName = lens _layName (\ s a -> s{_layName = a})
layBbox :: Lens' Layer [Double]
layBbox
= lens _layBbox (\ s a -> s{_layBbox = a}) . _Default
. _Coerce
layProcessingStatus :: Lens' Layer (Maybe LayerProcessingStatus)
layProcessingStatus
= lens _layProcessingStatus
(\ s a -> s{_layProcessingStatus = a})
layId :: Lens' Layer (Maybe Text)
layId = lens _layId (\ s a -> s{_layId = a})
layProjectId :: Lens' Layer (Maybe Text)
layProjectId
= lens _layProjectId (\ s a -> s{_layProjectId = a})
layDraftAccessList :: Lens' Layer (Maybe Text)
layDraftAccessList
= lens _layDraftAccessList
(\ s a -> s{_layDraftAccessList = a})
layPublishedAccessList :: Lens' Layer (Maybe Text)
layPublishedAccessList
= lens _layPublishedAccessList
(\ s a -> s{_layPublishedAccessList = a})
layDescription :: Lens' Layer (Maybe Text)
layDescription
= lens _layDescription
(\ s a -> s{_layDescription = a})
layTags :: Lens' Layer [Text]
layTags
= lens _layTags (\ s a -> s{_layTags = a}) . _Default
. _Coerce
instance FromJSON Layer where
parseJSON
= withObject "Layer"
(\ o ->
Layer' <$>
(o .:? "creationTime") <*>
(o .:? "writersCanEditPermissions")
<*> (o .:? "style")
<*> (o .:? "etag")
<*> (o .:? "datasourceType")
<*> (o .:? "publishingStatus")
<*> (o .:? "creatorEmail")
<*> (o .:? "layerType")
<*> (o .:? "lastModifiedTime")
<*> (o .:? "datasources")
<*> (o .:? "lastModifierEmail")
<*> (o .:? "name")
<*> (o .:? "bbox" .!= mempty)
<*> (o .:? "processingStatus")
<*> (o .:? "id")
<*> (o .:? "projectId")
<*> (o .:? "draftAccessList")
<*> (o .:? "publishedAccessList")
<*> (o .:? "description")
<*> (o .:? "tags"))
instance ToJSON Layer where
toJSON Layer'{..}
= object
(catMaybes
[("creationTime" .=) <$> _layCreationTime,
("writersCanEditPermissions" .=) <$>
_layWritersCanEditPermissions,
("style" .=) <$> _layStyle, ("etag" .=) <$> _layEtag,
("datasourceType" .=) <$> _layDatasourceType,
("publishingStatus" .=) <$> _layPublishingStatus,
("creatorEmail" .=) <$> _layCreatorEmail,
("layerType" .=) <$> _layLayerType,
("lastModifiedTime" .=) <$> _layLastModifiedTime,
("datasources" .=) <$> _layDatasources,
("lastModifierEmail" .=) <$> _layLastModifierEmail,
("name" .=) <$> _layName, ("bbox" .=) <$> _layBbox,
("processingStatus" .=) <$> _layProcessingStatus,
("id" .=) <$> _layId,
("projectId" .=) <$> _layProjectId,
("draftAccessList" .=) <$> _layDraftAccessList,
("publishedAccessList" .=) <$>
_layPublishedAccessList,
("description" .=) <$> _layDescription,
("tags" .=) <$> _layTags])
data PointStyle = PointStyle'
{ _psIcon :: !(Maybe IconStyle)
, _psLabel :: !(Maybe LabelStyle)
} deriving (Eq,Show,Data,Typeable,Generic)
pointStyle
:: PointStyle
pointStyle =
PointStyle'
{ _psIcon = Nothing
, _psLabel = Nothing
}
psIcon :: Lens' PointStyle (Maybe IconStyle)
psIcon = lens _psIcon (\ s a -> s{_psIcon = a})
psLabel :: Lens' PointStyle (Maybe LabelStyle)
psLabel = lens _psLabel (\ s a -> s{_psLabel = a})
instance FromJSON PointStyle where
parseJSON
= withObject "PointStyle"
(\ o ->
PointStyle' <$> (o .:? "icon") <*> (o .:? "label"))
instance ToJSON PointStyle where
toJSON PointStyle'{..}
= object
(catMaybes
[("icon" .=) <$> _psIcon, ("label" .=) <$> _psLabel])
data Raster = Raster'
{ _rrCreationTime :: !(Maybe DateTime')
, _rrWritersCanEditPermissions :: !(Maybe Bool)
, _rrMaskType :: !Text
, _rrEtag :: !(Maybe Text)
, _rrCreatorEmail :: !(Maybe Text)
, _rrRasterType :: !(Maybe RasterRasterType)
, _rrLastModifiedTime :: !(Maybe DateTime')
, _rrLastModifierEmail :: !(Maybe Text)
, _rrAcquisitionTime :: !(Maybe AcquisitionTime)
, _rrName :: !(Maybe Text)
, _rrBbox :: !(Maybe [Textual Double])
, _rrProcessingStatus :: !(Maybe RasterProcessingStatus)
, _rrFiles :: !(Maybe [File])
, _rrId :: !(Maybe Text)
, _rrProjectId :: !(Maybe Text)
, _rrDraftAccessList :: !(Maybe Text)
, _rrDescription :: !(Maybe Text)
, _rrAttribution :: !(Maybe Text)
, _rrTags :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
raster
:: Raster
raster =
Raster'
{ _rrCreationTime = Nothing
, _rrWritersCanEditPermissions = Nothing
, _rrMaskType = "autoMask"
, _rrEtag = Nothing
, _rrCreatorEmail = Nothing
, _rrRasterType = Nothing
, _rrLastModifiedTime = Nothing
, _rrLastModifierEmail = Nothing
, _rrAcquisitionTime = Nothing
, _rrName = Nothing
, _rrBbox = Nothing
, _rrProcessingStatus = Nothing
, _rrFiles = Nothing
, _rrId = Nothing
, _rrProjectId = Nothing
, _rrDraftAccessList = Nothing
, _rrDescription = Nothing
, _rrAttribution = Nothing
, _rrTags = Nothing
}
rrCreationTime :: Lens' Raster (Maybe UTCTime)
rrCreationTime
= lens _rrCreationTime
(\ s a -> s{_rrCreationTime = a})
. mapping _DateTime
rrWritersCanEditPermissions :: Lens' Raster (Maybe Bool)
rrWritersCanEditPermissions
= lens _rrWritersCanEditPermissions
(\ s a -> s{_rrWritersCanEditPermissions = a})
rrMaskType :: Lens' Raster Text
rrMaskType
= lens _rrMaskType (\ s a -> s{_rrMaskType = a})
rrEtag :: Lens' Raster (Maybe Text)
rrEtag = lens _rrEtag (\ s a -> s{_rrEtag = a})
rrCreatorEmail :: Lens' Raster (Maybe Text)
rrCreatorEmail
= lens _rrCreatorEmail
(\ s a -> s{_rrCreatorEmail = a})
rrRasterType :: Lens' Raster (Maybe RasterRasterType)
rrRasterType
= lens _rrRasterType (\ s a -> s{_rrRasterType = a})
rrLastModifiedTime :: Lens' Raster (Maybe UTCTime)
rrLastModifiedTime
= lens _rrLastModifiedTime
(\ s a -> s{_rrLastModifiedTime = a})
. mapping _DateTime
rrLastModifierEmail :: Lens' Raster (Maybe Text)
rrLastModifierEmail
= lens _rrLastModifierEmail
(\ s a -> s{_rrLastModifierEmail = a})
rrAcquisitionTime :: Lens' Raster (Maybe AcquisitionTime)
rrAcquisitionTime
= lens _rrAcquisitionTime
(\ s a -> s{_rrAcquisitionTime = a})
rrName :: Lens' Raster (Maybe Text)
rrName = lens _rrName (\ s a -> s{_rrName = a})
rrBbox :: Lens' Raster [Double]
rrBbox
= lens _rrBbox (\ s a -> s{_rrBbox = a}) . _Default .
_Coerce
rrProcessingStatus :: Lens' Raster (Maybe RasterProcessingStatus)
rrProcessingStatus
= lens _rrProcessingStatus
(\ s a -> s{_rrProcessingStatus = a})
rrFiles :: Lens' Raster [File]
rrFiles
= lens _rrFiles (\ s a -> s{_rrFiles = a}) . _Default
. _Coerce
rrId :: Lens' Raster (Maybe Text)
rrId = lens _rrId (\ s a -> s{_rrId = a})
rrProjectId :: Lens' Raster (Maybe Text)
rrProjectId
= lens _rrProjectId (\ s a -> s{_rrProjectId = a})
rrDraftAccessList :: Lens' Raster (Maybe Text)
rrDraftAccessList
= lens _rrDraftAccessList
(\ s a -> s{_rrDraftAccessList = a})
rrDescription :: Lens' Raster (Maybe Text)
rrDescription
= lens _rrDescription
(\ s a -> s{_rrDescription = a})
rrAttribution :: Lens' Raster (Maybe Text)
rrAttribution
= lens _rrAttribution
(\ s a -> s{_rrAttribution = a})
rrTags :: Lens' Raster [Text]
rrTags
= lens _rrTags (\ s a -> s{_rrTags = a}) . _Default .
_Coerce
instance FromJSON Raster where
parseJSON
= withObject "Raster"
(\ o ->
Raster' <$>
(o .:? "creationTime") <*>
(o .:? "writersCanEditPermissions")
<*> (o .:? "maskType" .!= "autoMask")
<*> (o .:? "etag")
<*> (o .:? "creatorEmail")
<*> (o .:? "rasterType")
<*> (o .:? "lastModifiedTime")
<*> (o .:? "lastModifierEmail")
<*> (o .:? "acquisitionTime")
<*> (o .:? "name")
<*> (o .:? "bbox" .!= mempty)
<*> (o .:? "processingStatus")
<*> (o .:? "files" .!= mempty)
<*> (o .:? "id")
<*> (o .:? "projectId")
<*> (o .:? "draftAccessList")
<*> (o .:? "description")
<*> (o .:? "attribution")
<*> (o .:? "tags"))
instance ToJSON Raster where
toJSON Raster'{..}
= object
(catMaybes
[("creationTime" .=) <$> _rrCreationTime,
("writersCanEditPermissions" .=) <$>
_rrWritersCanEditPermissions,
Just ("maskType" .= _rrMaskType),
("etag" .=) <$> _rrEtag,
("creatorEmail" .=) <$> _rrCreatorEmail,
("rasterType" .=) <$> _rrRasterType,
("lastModifiedTime" .=) <$> _rrLastModifiedTime,
("lastModifierEmail" .=) <$> _rrLastModifierEmail,
("acquisitionTime" .=) <$> _rrAcquisitionTime,
("name" .=) <$> _rrName, ("bbox" .=) <$> _rrBbox,
("processingStatus" .=) <$> _rrProcessingStatus,
("files" .=) <$> _rrFiles, ("id" .=) <$> _rrId,
("projectId" .=) <$> _rrProjectId,
("draftAccessList" .=) <$> _rrDraftAccessList,
("description" .=) <$> _rrDescription,
("attribution" .=) <$> _rrAttribution,
("tags" .=) <$> _rrTags])
data PolygonStyle = PolygonStyle'
{ _pStroke :: !(Maybe BOrder)
, _pFill :: !(Maybe Color)
, _pLabel :: !(Maybe LabelStyle)
} deriving (Eq,Show,Data,Typeable,Generic)
polygonStyle
:: PolygonStyle
polygonStyle =
PolygonStyle'
{ _pStroke = Nothing
, _pFill = Nothing
, _pLabel = Nothing
}
pStroke :: Lens' PolygonStyle (Maybe BOrder)
pStroke = lens _pStroke (\ s a -> s{_pStroke = a})
pFill :: Lens' PolygonStyle (Maybe Color)
pFill = lens _pFill (\ s a -> s{_pFill = a})
pLabel :: Lens' PolygonStyle (Maybe LabelStyle)
pLabel = lens _pLabel (\ s a -> s{_pLabel = a})
instance FromJSON PolygonStyle where
parseJSON
= withObject "PolygonStyle"
(\ o ->
PolygonStyle' <$>
(o .:? "stroke") <*> (o .:? "fill") <*>
(o .:? "label"))
instance ToJSON PolygonStyle where
toJSON PolygonStyle'{..}
= object
(catMaybes
[("stroke" .=) <$> _pStroke, ("fill" .=) <$> _pFill,
("label" .=) <$> _pLabel])
data Permission = Permission'
{ _perRole :: !(Maybe PermissionRole)
, _perId :: !(Maybe Text)
, _perType :: !(Maybe PermissionType)
, _perDiscoverable :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
permission
:: Permission
permission =
Permission'
{ _perRole = Nothing
, _perId = Nothing
, _perType = Nothing
, _perDiscoverable = Nothing
}
perRole :: Lens' Permission (Maybe PermissionRole)
perRole = lens _perRole (\ s a -> s{_perRole = a})
perId :: Lens' Permission (Maybe Text)
perId = lens _perId (\ s a -> s{_perId = a})
perType :: Lens' Permission (Maybe PermissionType)
perType = lens _perType (\ s a -> s{_perType = a})
perDiscoverable :: Lens' Permission (Maybe Bool)
perDiscoverable
= lens _perDiscoverable
(\ s a -> s{_perDiscoverable = a})
instance FromJSON Permission where
parseJSON
= withObject "Permission"
(\ o ->
Permission' <$>
(o .:? "role") <*> (o .:? "id") <*> (o .:? "type")
<*> (o .:? "discoverable"))
instance ToJSON Permission where
toJSON Permission'{..}
= object
(catMaybes
[("role" .=) <$> _perRole, ("id" .=) <$> _perId,
("type" .=) <$> _perType,
("discoverable" .=) <$> _perDiscoverable])
data PublishedLayer = PublishedLayer'
{ _plLayerType :: !(Maybe PublishedLayerLayerType)
, _plName :: !(Maybe Text)
, _plId :: !(Maybe Text)
, _plProjectId :: !(Maybe Text)
, _plDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
publishedLayer
:: PublishedLayer
publishedLayer =
PublishedLayer'
{ _plLayerType = Nothing
, _plName = Nothing
, _plId = Nothing
, _plProjectId = Nothing
, _plDescription = Nothing
}
plLayerType :: Lens' PublishedLayer (Maybe PublishedLayerLayerType)
plLayerType
= lens _plLayerType (\ s a -> s{_plLayerType = a})
plName :: Lens' PublishedLayer (Maybe Text)
plName = lens _plName (\ s a -> s{_plName = a})
plId :: Lens' PublishedLayer (Maybe Text)
plId = lens _plId (\ s a -> s{_plId = a})
plProjectId :: Lens' PublishedLayer (Maybe Text)
plProjectId
= lens _plProjectId (\ s a -> s{_plProjectId = a})
plDescription :: Lens' PublishedLayer (Maybe Text)
plDescription
= lens _plDescription
(\ s a -> s{_plDescription = a})
instance FromJSON PublishedLayer where
parseJSON
= withObject "PublishedLayer"
(\ o ->
PublishedLayer' <$>
(o .:? "layerType") <*> (o .:? "name") <*>
(o .:? "id")
<*> (o .:? "projectId")
<*> (o .:? "description"))
instance ToJSON PublishedLayer where
toJSON PublishedLayer'{..}
= object
(catMaybes
[("layerType" .=) <$> _plLayerType,
("name" .=) <$> _plName, ("id" .=) <$> _plId,
("projectId" .=) <$> _plProjectId,
("description" .=) <$> _plDescription])
data Table = Table'
{ _tabCreationTime :: !(Maybe DateTime')
, _tabWritersCanEditPermissions :: !(Maybe Bool)
, _tabEtag :: !(Maybe Text)
, _tabCreatorEmail :: !(Maybe Text)
, _tabLastModifiedTime :: !(Maybe DateTime')
, _tabSchema :: !(Maybe Schema)
, _tabLastModifierEmail :: !(Maybe Text)
, _tabName :: !(Maybe Text)
, _tabBbox :: !(Maybe [Textual Double])
, _tabProcessingStatus :: !(Maybe TableProcessingStatus)
, _tabFiles :: !(Maybe [File])
, _tabId :: !(Maybe Text)
, _tabProjectId :: !(Maybe Text)
, _tabDraftAccessList :: !(Maybe Text)
, _tabPublishedAccessList :: !(Maybe Text)
, _tabSourceEncoding :: !Text
, _tabDescription :: !(Maybe Text)
, _tabTags :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
table
:: Table
table =
Table'
{ _tabCreationTime = Nothing
, _tabWritersCanEditPermissions = Nothing
, _tabEtag = Nothing
, _tabCreatorEmail = Nothing
, _tabLastModifiedTime = Nothing
, _tabSchema = Nothing
, _tabLastModifierEmail = Nothing
, _tabName = Nothing
, _tabBbox = Nothing
, _tabProcessingStatus = Nothing
, _tabFiles = Nothing
, _tabId = Nothing
, _tabProjectId = Nothing
, _tabDraftAccessList = Nothing
, _tabPublishedAccessList = Nothing
, _tabSourceEncoding = "UTF-8"
, _tabDescription = Nothing
, _tabTags = Nothing
}
tabCreationTime :: Lens' Table (Maybe UTCTime)
tabCreationTime
= lens _tabCreationTime
(\ s a -> s{_tabCreationTime = a})
. mapping _DateTime
tabWritersCanEditPermissions :: Lens' Table (Maybe Bool)
tabWritersCanEditPermissions
= lens _tabWritersCanEditPermissions
(\ s a -> s{_tabWritersCanEditPermissions = a})
tabEtag :: Lens' Table (Maybe Text)
tabEtag = lens _tabEtag (\ s a -> s{_tabEtag = a})
tabCreatorEmail :: Lens' Table (Maybe Text)
tabCreatorEmail
= lens _tabCreatorEmail
(\ s a -> s{_tabCreatorEmail = a})
tabLastModifiedTime :: Lens' Table (Maybe UTCTime)
tabLastModifiedTime
= lens _tabLastModifiedTime
(\ s a -> s{_tabLastModifiedTime = a})
. mapping _DateTime
tabSchema :: Lens' Table (Maybe Schema)
tabSchema
= lens _tabSchema (\ s a -> s{_tabSchema = a})
tabLastModifierEmail :: Lens' Table (Maybe Text)
tabLastModifierEmail
= lens _tabLastModifierEmail
(\ s a -> s{_tabLastModifierEmail = a})
tabName :: Lens' Table (Maybe Text)
tabName = lens _tabName (\ s a -> s{_tabName = a})
tabBbox :: Lens' Table [Double]
tabBbox
= lens _tabBbox (\ s a -> s{_tabBbox = a}) . _Default
. _Coerce
tabProcessingStatus :: Lens' Table (Maybe TableProcessingStatus)
tabProcessingStatus
= lens _tabProcessingStatus
(\ s a -> s{_tabProcessingStatus = a})
tabFiles :: Lens' Table [File]
tabFiles
= lens _tabFiles (\ s a -> s{_tabFiles = a}) .
_Default
. _Coerce
tabId :: Lens' Table (Maybe Text)
tabId = lens _tabId (\ s a -> s{_tabId = a})
tabProjectId :: Lens' Table (Maybe Text)
tabProjectId
= lens _tabProjectId (\ s a -> s{_tabProjectId = a})
tabDraftAccessList :: Lens' Table (Maybe Text)
tabDraftAccessList
= lens _tabDraftAccessList
(\ s a -> s{_tabDraftAccessList = a})
tabPublishedAccessList :: Lens' Table (Maybe Text)
tabPublishedAccessList
= lens _tabPublishedAccessList
(\ s a -> s{_tabPublishedAccessList = a})
tabSourceEncoding :: Lens' Table Text
tabSourceEncoding
= lens _tabSourceEncoding
(\ s a -> s{_tabSourceEncoding = a})
tabDescription :: Lens' Table (Maybe Text)
tabDescription
= lens _tabDescription
(\ s a -> s{_tabDescription = a})
tabTags :: Lens' Table [Text]
tabTags
= lens _tabTags (\ s a -> s{_tabTags = a}) . _Default
. _Coerce
instance FromJSON Table where
parseJSON
= withObject "Table"
(\ o ->
Table' <$>
(o .:? "creationTime") <*>
(o .:? "writersCanEditPermissions")
<*> (o .:? "etag")
<*> (o .:? "creatorEmail")
<*> (o .:? "lastModifiedTime")
<*> (o .:? "schema")
<*> (o .:? "lastModifierEmail")
<*> (o .:? "name")
<*> (o .:? "bbox" .!= mempty)
<*> (o .:? "processingStatus")
<*> (o .:? "files" .!= mempty)
<*> (o .:? "id")
<*> (o .:? "projectId")
<*> (o .:? "draftAccessList")
<*> (o .:? "publishedAccessList")
<*> (o .:? "sourceEncoding" .!= "UTF-8")
<*> (o .:? "description")
<*> (o .:? "tags"))
instance ToJSON Table where
toJSON Table'{..}
= object
(catMaybes
[("creationTime" .=) <$> _tabCreationTime,
("writersCanEditPermissions" .=) <$>
_tabWritersCanEditPermissions,
("etag" .=) <$> _tabEtag,
("creatorEmail" .=) <$> _tabCreatorEmail,
("lastModifiedTime" .=) <$> _tabLastModifiedTime,
("schema" .=) <$> _tabSchema,
("lastModifierEmail" .=) <$> _tabLastModifierEmail,
("name" .=) <$> _tabName, ("bbox" .=) <$> _tabBbox,
("processingStatus" .=) <$> _tabProcessingStatus,
("files" .=) <$> _tabFiles, ("id" .=) <$> _tabId,
("projectId" .=) <$> _tabProjectId,
("draftAccessList" .=) <$> _tabDraftAccessList,
("publishedAccessList" .=) <$>
_tabPublishedAccessList,
Just ("sourceEncoding" .= _tabSourceEncoding),
("description" .=) <$> _tabDescription,
("tags" .=) <$> _tabTags])
data File = File'
{ _fSize :: !(Maybe (Textual Int64))
, _fUploadStatus :: !(Maybe FileUploadStatus)
, _fFilename :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
file
:: File
file =
File'
{ _fSize = Nothing
, _fUploadStatus = Nothing
, _fFilename = Nothing
}
fSize :: Lens' File (Maybe Int64)
fSize
= lens _fSize (\ s a -> s{_fSize = a}) .
mapping _Coerce
fUploadStatus :: Lens' File (Maybe FileUploadStatus)
fUploadStatus
= lens _fUploadStatus
(\ s a -> s{_fUploadStatus = a})
fFilename :: Lens' File (Maybe Text)
fFilename
= lens _fFilename (\ s a -> s{_fFilename = a})
instance FromJSON File where
parseJSON
= withObject "File"
(\ o ->
File' <$>
(o .:? "size") <*> (o .:? "uploadStatus") <*>
(o .:? "filename"))
instance ToJSON File where
toJSON File'{..}
= object
(catMaybes
[("size" .=) <$> _fSize,
("uploadStatus" .=) <$> _fUploadStatus,
("filename" .=) <$> _fFilename])
data VectorStyle = VectorStyle'
{ _vsDisplayRules :: !(Maybe [DisplayRule])
, _vsFeatureInfo :: !(Maybe FeatureInfo)
, _vsType :: !(Maybe VectorStyleType)
} deriving (Eq,Show,Data,Typeable,Generic)
vectorStyle
:: VectorStyle
vectorStyle =
VectorStyle'
{ _vsDisplayRules = Nothing
, _vsFeatureInfo = Nothing
, _vsType = Nothing
}
vsDisplayRules :: Lens' VectorStyle [DisplayRule]
vsDisplayRules
= lens _vsDisplayRules
(\ s a -> s{_vsDisplayRules = a})
. _Default
. _Coerce
vsFeatureInfo :: Lens' VectorStyle (Maybe FeatureInfo)
vsFeatureInfo
= lens _vsFeatureInfo
(\ s a -> s{_vsFeatureInfo = a})
vsType :: Lens' VectorStyle (Maybe VectorStyleType)
vsType = lens _vsType (\ s a -> s{_vsType = a})
instance FromJSON VectorStyle where
parseJSON
= withObject "VectorStyle"
(\ o ->
VectorStyle' <$>
(o .:? "displayRules" .!= mempty) <*>
(o .:? "featureInfo")
<*> (o .:? "type"))
instance ToJSON VectorStyle where
toJSON VectorStyle'{..}
= object
(catMaybes
[("displayRules" .=) <$> _vsDisplayRules,
("featureInfo" .=) <$> _vsFeatureInfo,
("type" .=) <$> _vsType])
data PermissionsBatchDeleteResponse =
PermissionsBatchDeleteResponse'
deriving (Eq,Show,Data,Typeable,Generic)
permissionsBatchDeleteResponse
:: PermissionsBatchDeleteResponse
permissionsBatchDeleteResponse = PermissionsBatchDeleteResponse'
instance FromJSON PermissionsBatchDeleteResponse
where
parseJSON
= withObject "PermissionsBatchDeleteResponse"
(\ o -> pure PermissionsBatchDeleteResponse')
instance ToJSON PermissionsBatchDeleteResponse where
toJSON = const emptyObject
data MapKmlLink = MapKmlLink'
{ _mklDefaultViewport :: !(Maybe [Textual Double])
, _mklVisibility :: !(Maybe Text)
, _mklName :: !(Maybe Text)
, _mklType :: !(Maybe MapKmlLinkType)
, _mklKmlURL :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
mapKmlLink
:: MapKmlLink
mapKmlLink =
MapKmlLink'
{ _mklDefaultViewport = Nothing
, _mklVisibility = Nothing
, _mklName = Nothing
, _mklType = Nothing
, _mklKmlURL = Nothing
}
mklDefaultViewport :: Lens' MapKmlLink [Double]
mklDefaultViewport
= lens _mklDefaultViewport
(\ s a -> s{_mklDefaultViewport = a})
. _Default
. _Coerce
mklVisibility :: Lens' MapKmlLink (Maybe Text)
mklVisibility
= lens _mklVisibility
(\ s a -> s{_mklVisibility = a})
mklName :: Lens' MapKmlLink (Maybe Text)
mklName = lens _mklName (\ s a -> s{_mklName = a})
mklType :: Lens' MapKmlLink (Maybe MapKmlLinkType)
mklType = lens _mklType (\ s a -> s{_mklType = a})
mklKmlURL :: Lens' MapKmlLink (Maybe Text)
mklKmlURL
= lens _mklKmlURL (\ s a -> s{_mklKmlURL = a})
instance FromJSON MapKmlLink where
parseJSON
= withObject "MapKmlLink"
(\ o ->
MapKmlLink' <$>
(o .:? "defaultViewport" .!= mempty) <*>
(o .:? "visibility")
<*> (o .:? "name")
<*> (o .:? "type")
<*> (o .:? "kmlUrl"))
instance ToJSON MapKmlLink where
toJSON MapKmlLink'{..}
= object
(catMaybes
[("defaultViewport" .=) <$> _mklDefaultViewport,
("visibility" .=) <$> _mklVisibility,
("name" .=) <$> _mklName, ("type" .=) <$> _mklType,
("kmlUrl" .=) <$> _mklKmlURL])
data PermissionsBatchUpdateResponse =
PermissionsBatchUpdateResponse'
deriving (Eq,Show,Data,Typeable,Generic)
permissionsBatchUpdateResponse
:: PermissionsBatchUpdateResponse
permissionsBatchUpdateResponse = PermissionsBatchUpdateResponse'
instance FromJSON PermissionsBatchUpdateResponse
where
parseJSON
= withObject "PermissionsBatchUpdateResponse"
(\ o -> pure PermissionsBatchUpdateResponse')
instance ToJSON PermissionsBatchUpdateResponse where
toJSON = const emptyObject
data GeoJSONLineString = GeoJSONLineString'
{ _gjlsCoordinates :: !(Maybe [[Textual Double]])
, _gjlsType :: !(Maybe GeoJSONLineStringType)
} deriving (Eq,Show,Data,Typeable,Generic)
geoJSONLineString
:: GeoJSONLineString
geoJSONLineString =
GeoJSONLineString'
{ _gjlsCoordinates = Nothing
, _gjlsType = Nothing
}
gjlsCoordinates :: Lens' GeoJSONLineString [[Double]]
gjlsCoordinates
= lens _gjlsCoordinates
(\ s a -> s{_gjlsCoordinates = a})
. _Default
. _Coerce
gjlsType :: Lens' GeoJSONLineString (Maybe GeoJSONLineStringType)
gjlsType = lens _gjlsType (\ s a -> s{_gjlsType = a})
instance FromJSON GeoJSONLineString where
parseJSON
= withObject "GeoJSONLineString"
(\ o ->
GeoJSONLineString' <$>
(o .:? "coordinates" .!= mempty) <*> (o .:? "type"))
instance ToJSON GeoJSONLineString where
toJSON GeoJSONLineString'{..}
= object
(catMaybes
[("coordinates" .=) <$> _gjlsCoordinates,
("type" .=) <$> _gjlsType])
data PublishedMapsListResponse = PublishedMapsListResponse'
{ _pmlrMaps :: !(Maybe [PublishedMap])
, _pmlrNextPageToken :: !(Maybe Base64)
} deriving (Eq,Show,Data,Typeable,Generic)
publishedMapsListResponse
:: PublishedMapsListResponse
publishedMapsListResponse =
PublishedMapsListResponse'
{ _pmlrMaps = Nothing
, _pmlrNextPageToken = Nothing
}
pmlrMaps :: Lens' PublishedMapsListResponse [PublishedMap]
pmlrMaps
= lens _pmlrMaps (\ s a -> s{_pmlrMaps = a}) .
_Default
. _Coerce
pmlrNextPageToken :: Lens' PublishedMapsListResponse (Maybe ByteString)
pmlrNextPageToken
= lens _pmlrNextPageToken
(\ s a -> s{_pmlrNextPageToken = a})
. mapping _Base64
instance FromJSON PublishedMapsListResponse where
parseJSON
= withObject "PublishedMapsListResponse"
(\ o ->
PublishedMapsListResponse' <$>
(o .:? "maps" .!= mempty) <*>
(o .:? "nextPageToken"))
instance ToJSON PublishedMapsListResponse where
toJSON PublishedMapsListResponse'{..}
= object
(catMaybes
[("maps" .=) <$> _pmlrMaps,
("nextPageToken" .=) <$> _pmlrNextPageToken])
data MapsListResponse = MapsListResponse'
{ _mlrMaps :: !(Maybe [Map])
, _mlrNextPageToken :: !(Maybe Base64)
} deriving (Eq,Show,Data,Typeable,Generic)
mapsListResponse
:: MapsListResponse
mapsListResponse =
MapsListResponse'
{ _mlrMaps = Nothing
, _mlrNextPageToken = Nothing
}
mlrMaps :: Lens' MapsListResponse [Map]
mlrMaps
= lens _mlrMaps (\ s a -> s{_mlrMaps = a}) . _Default
. _Coerce
mlrNextPageToken :: Lens' MapsListResponse (Maybe ByteString)
mlrNextPageToken
= lens _mlrNextPageToken
(\ s a -> s{_mlrNextPageToken = a})
. mapping _Base64
instance FromJSON MapsListResponse where
parseJSON
= withObject "MapsListResponse"
(\ o ->
MapsListResponse' <$>
(o .:? "maps" .!= mempty) <*>
(o .:? "nextPageToken"))
instance ToJSON MapsListResponse where
toJSON MapsListResponse'{..}
= object
(catMaybes
[("maps" .=) <$> _mlrMaps,
("nextPageToken" .=) <$> _mlrNextPageToken])
data GeoJSONGeometryCollection = GeoJSONGeometryCollection'
{ _gjgcGeometries :: !(Maybe [GeoJSONGeometry])
, _gjgcType :: !(Maybe GeoJSONGeometryCollectionType)
} deriving (Eq,Show,Data,Typeable,Generic)
geoJSONGeometryCollection
:: GeoJSONGeometryCollection
geoJSONGeometryCollection =
GeoJSONGeometryCollection'
{ _gjgcGeometries = Nothing
, _gjgcType = Nothing
}
gjgcGeometries :: Lens' GeoJSONGeometryCollection [GeoJSONGeometry]
gjgcGeometries
= lens _gjgcGeometries
(\ s a -> s{_gjgcGeometries = a})
. _Default
. _Coerce
gjgcType :: Lens' GeoJSONGeometryCollection (Maybe GeoJSONGeometryCollectionType)
gjgcType = lens _gjgcType (\ s a -> s{_gjgcType = a})
instance FromJSON GeoJSONGeometryCollection where
parseJSON
= withObject "GeoJSONGeometryCollection"
(\ o ->
GeoJSONGeometryCollection' <$>
(o .:? "geometries" .!= mempty) <*> (o .:? "type"))
instance ToJSON GeoJSONGeometryCollection where
toJSON GeoJSONGeometryCollection'{..}
= object
(catMaybes
[("geometries" .=) <$> _gjgcGeometries,
("type" .=) <$> _gjgcType])
data GeoJSONPolygon = GeoJSONPolygon'
{ _gjpCoordinates :: !(Maybe [[[Textual Double]]])
, _gjpType :: !(Maybe GeoJSONPolygonType)
} deriving (Eq,Show,Data,Typeable,Generic)
geoJSONPolygon
:: GeoJSONPolygon
geoJSONPolygon =
GeoJSONPolygon'
{ _gjpCoordinates = Nothing
, _gjpType = Nothing
}
gjpCoordinates :: Lens' GeoJSONPolygon [[[Double]]]
gjpCoordinates
= lens _gjpCoordinates
(\ s a -> s{_gjpCoordinates = a})
. _Default
. _Coerce
gjpType :: Lens' GeoJSONPolygon (Maybe GeoJSONPolygonType)
gjpType = lens _gjpType (\ s a -> s{_gjpType = a})
instance FromJSON GeoJSONPolygon where
parseJSON
= withObject "GeoJSONPolygon"
(\ o ->
GeoJSONPolygon' <$>
(o .:? "coordinates" .!= mempty) <*> (o .:? "type"))
instance ToJSON GeoJSONPolygon where
toJSON GeoJSONPolygon'{..}
= object
(catMaybes
[("coordinates" .=) <$> _gjpCoordinates,
("type" .=) <$> _gjpType])
data GeoJSONPoint = GeoJSONPoint'
{ _gjsonpCoordinates :: !(Maybe [Textual Double])
, _gjsonpType :: !(Maybe GeoJSONPointType)
} deriving (Eq,Show,Data,Typeable,Generic)
geoJSONPoint
:: GeoJSONPoint
geoJSONPoint =
GeoJSONPoint'
{ _gjsonpCoordinates = Nothing
, _gjsonpType = Nothing
}
gjsonpCoordinates :: Lens' GeoJSONPoint [Double]
gjsonpCoordinates
= lens _gjsonpCoordinates
(\ s a -> s{_gjsonpCoordinates = a})
. _Default
. _Coerce
gjsonpType :: Lens' GeoJSONPoint (Maybe GeoJSONPointType)
gjsonpType
= lens _gjsonpType (\ s a -> s{_gjsonpType = a})
instance FromJSON GeoJSONPoint where
parseJSON
= withObject "GeoJSONPoint"
(\ o ->
GeoJSONPoint' <$>
(o .:? "coordinates") <*> (o .:? "type"))
instance ToJSON GeoJSONPoint where
toJSON GeoJSONPoint'{..}
= object
(catMaybes
[("coordinates" .=) <$> _gjsonpCoordinates,
("type" .=) <$> _gjsonpType])
data LayersListResponse = LayersListResponse'
{ _llrNextPageToken :: !(Maybe Base64)
, _llrLayers :: !(Maybe [Layer])
} deriving (Eq,Show,Data,Typeable,Generic)
layersListResponse
:: LayersListResponse
layersListResponse =
LayersListResponse'
{ _llrNextPageToken = Nothing
, _llrLayers = Nothing
}
llrNextPageToken :: Lens' LayersListResponse (Maybe ByteString)
llrNextPageToken
= lens _llrNextPageToken
(\ s a -> s{_llrNextPageToken = a})
. mapping _Base64
llrLayers :: Lens' LayersListResponse [Layer]
llrLayers
= lens _llrLayers (\ s a -> s{_llrLayers = a}) .
_Default
. _Coerce
instance FromJSON LayersListResponse where
parseJSON
= withObject "LayersListResponse"
(\ o ->
LayersListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "layers" .!= mempty))
instance ToJSON LayersListResponse where
toJSON LayersListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _llrNextPageToken,
("layers" .=) <$> _llrLayers])
data RastersListResponse = RastersListResponse'
{ _rlrNextPageToken :: !(Maybe Text)
, _rlrRasters :: !(Maybe [Raster])
} deriving (Eq,Show,Data,Typeable,Generic)
rastersListResponse
:: RastersListResponse
rastersListResponse =
RastersListResponse'
{ _rlrNextPageToken = Nothing
, _rlrRasters = Nothing
}
rlrNextPageToken :: Lens' RastersListResponse (Maybe Text)
rlrNextPageToken
= lens _rlrNextPageToken
(\ s a -> s{_rlrNextPageToken = a})
rlrRasters :: Lens' RastersListResponse [Raster]
rlrRasters
= lens _rlrRasters (\ s a -> s{_rlrRasters = a}) .
_Default
. _Coerce
instance FromJSON RastersListResponse where
parseJSON
= withObject "RastersListResponse"
(\ o ->
RastersListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "rasters" .!= mempty))
instance ToJSON RastersListResponse where
toJSON RastersListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _rlrNextPageToken,
("rasters" .=) <$> _rlrRasters])
newtype PermissionsListResponse = PermissionsListResponse'
{ _plrPermissions :: Maybe [Permission]
} deriving (Eq,Show,Data,Typeable,Generic)
permissionsListResponse
:: PermissionsListResponse
permissionsListResponse =
PermissionsListResponse'
{ _plrPermissions = Nothing
}
plrPermissions :: Lens' PermissionsListResponse [Permission]
plrPermissions
= lens _plrPermissions
(\ s a -> s{_plrPermissions = a})
. _Default
. _Coerce
instance FromJSON PermissionsListResponse where
parseJSON
= withObject "PermissionsListResponse"
(\ o ->
PermissionsListResponse' <$>
(o .:? "permissions" .!= mempty))
instance ToJSON PermissionsListResponse where
toJSON PermissionsListResponse'{..}
= object
(catMaybes [("permissions" .=) <$> _plrPermissions])
data LineStyle = LineStyle'
{ _lsStroke :: !(Maybe LineStyleStroke)
, _lsBOrder :: !(Maybe BOrder)
, _lsDash :: !(Maybe [Textual Double])
, _lsLabel :: !(Maybe LabelStyle)
} deriving (Eq,Show,Data,Typeable,Generic)
lineStyle
:: LineStyle
lineStyle =
LineStyle'
{ _lsStroke = Nothing
, _lsBOrder = Nothing
, _lsDash = Nothing
, _lsLabel = Nothing
}
lsStroke :: Lens' LineStyle (Maybe LineStyleStroke)
lsStroke = lens _lsStroke (\ s a -> s{_lsStroke = a})
lsBOrder :: Lens' LineStyle (Maybe BOrder)
lsBOrder = lens _lsBOrder (\ s a -> s{_lsBOrder = a})
lsDash :: Lens' LineStyle [Double]
lsDash
= lens _lsDash (\ s a -> s{_lsDash = a}) . _Default .
_Coerce
lsLabel :: Lens' LineStyle (Maybe LabelStyle)
lsLabel = lens _lsLabel (\ s a -> s{_lsLabel = a})
instance FromJSON LineStyle where
parseJSON
= withObject "LineStyle"
(\ o ->
LineStyle' <$>
(o .:? "stroke") <*> (o .:? "border") <*>
(o .:? "dash" .!= mempty)
<*> (o .:? "label"))
instance ToJSON LineStyle where
toJSON LineStyle'{..}
= object
(catMaybes
[("stroke" .=) <$> _lsStroke,
("border" .=) <$> _lsBOrder, ("dash" .=) <$> _lsDash,
("label" .=) <$> _lsLabel])
data PublishedLayersListResponse = PublishedLayersListResponse'
{ _pllrNextPageToken :: !(Maybe Base64)
, _pllrLayers :: !(Maybe [PublishedLayer])
} deriving (Eq,Show,Data,Typeable,Generic)
publishedLayersListResponse
:: PublishedLayersListResponse
publishedLayersListResponse =
PublishedLayersListResponse'
{ _pllrNextPageToken = Nothing
, _pllrLayers = Nothing
}
pllrNextPageToken :: Lens' PublishedLayersListResponse (Maybe ByteString)
pllrNextPageToken
= lens _pllrNextPageToken
(\ s a -> s{_pllrNextPageToken = a})
. mapping _Base64
pllrLayers :: Lens' PublishedLayersListResponse [PublishedLayer]
pllrLayers
= lens _pllrLayers (\ s a -> s{_pllrLayers = a}) .
_Default
. _Coerce
instance FromJSON PublishedLayersListResponse where
parseJSON
= withObject "PublishedLayersListResponse"
(\ o ->
PublishedLayersListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "layers" .!= mempty))
instance ToJSON PublishedLayersListResponse where
toJSON PublishedLayersListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _pllrNextPageToken,
("layers" .=) <$> _pllrLayers])