{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Redis.Types.Product where
import Network.Google.Prelude
import Network.Google.Redis.Types.Sum
newtype InstanceLabels = InstanceLabels'
{ _ilAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
instanceLabels
:: HashMap Text Text
-> InstanceLabels
instanceLabels pIlAddtional_ =
InstanceLabels'
{ _ilAddtional = _Coerce # pIlAddtional_
}
ilAddtional :: Lens' InstanceLabels (HashMap Text Text)
ilAddtional
= lens _ilAddtional (\ s a -> s{_ilAddtional = a}) .
_Coerce
instance FromJSON InstanceLabels where
parseJSON
= withObject "InstanceLabels"
(\ o -> InstanceLabels' <$> (parseJSONObject o))
instance ToJSON InstanceLabels where
toJSON = toJSON . _ilAddtional
data Status = Status'
{ _sDetails :: !(Maybe [StatusDetailsItem])
, _sCode :: !(Maybe (Textual Int32))
, _sMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
status
:: Status
status =
Status'
{ _sDetails = Nothing
, _sCode = Nothing
, _sMessage = Nothing
}
sDetails :: Lens' Status [StatusDetailsItem]
sDetails
= lens _sDetails (\ s a -> s{_sDetails = a}) .
_Default
. _Coerce
sCode :: Lens' Status (Maybe Int32)
sCode
= lens _sCode (\ s a -> s{_sCode = a}) .
mapping _Coerce
sMessage :: Lens' Status (Maybe Text)
sMessage = lens _sMessage (\ s a -> s{_sMessage = a})
instance FromJSON Status where
parseJSON
= withObject "Status"
(\ o ->
Status' <$>
(o .:? "details" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON Status where
toJSON Status'{..}
= object
(catMaybes
[("details" .=) <$> _sDetails,
("code" .=) <$> _sCode,
("message" .=) <$> _sMessage])
data ListLocationsResponse = ListLocationsResponse'
{ _llrNextPageToken :: !(Maybe Text)
, _llrLocations :: !(Maybe [Location])
} deriving (Eq,Show,Data,Typeable,Generic)
listLocationsResponse
:: ListLocationsResponse
listLocationsResponse =
ListLocationsResponse'
{ _llrNextPageToken = Nothing
, _llrLocations = Nothing
}
llrNextPageToken :: Lens' ListLocationsResponse (Maybe Text)
llrNextPageToken
= lens _llrNextPageToken
(\ s a -> s{_llrNextPageToken = a})
llrLocations :: Lens' ListLocationsResponse [Location]
llrLocations
= lens _llrLocations (\ s a -> s{_llrLocations = a})
. _Default
. _Coerce
instance FromJSON ListLocationsResponse where
parseJSON
= withObject "ListLocationsResponse"
(\ o ->
ListLocationsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "locations" .!= mempty))
instance ToJSON ListLocationsResponse where
toJSON ListLocationsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _llrNextPageToken,
("locations" .=) <$> _llrLocations])
data ListOperationsResponse = ListOperationsResponse'
{ _lorNextPageToken :: !(Maybe Text)
, _lorOperations :: !(Maybe [Operation])
} deriving (Eq,Show,Data,Typeable,Generic)
listOperationsResponse
:: ListOperationsResponse
listOperationsResponse =
ListOperationsResponse'
{ _lorNextPageToken = Nothing
, _lorOperations = Nothing
}
lorNextPageToken :: Lens' ListOperationsResponse (Maybe Text)
lorNextPageToken
= lens _lorNextPageToken
(\ s a -> s{_lorNextPageToken = a})
lorOperations :: Lens' ListOperationsResponse [Operation]
lorOperations
= lens _lorOperations
(\ s a -> s{_lorOperations = a})
. _Default
. _Coerce
instance FromJSON ListOperationsResponse where
parseJSON
= withObject "ListOperationsResponse"
(\ o ->
ListOperationsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "operations" .!= mempty))
instance ToJSON ListOperationsResponse where
toJSON ListOperationsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lorNextPageToken,
("operations" .=) <$> _lorOperations])
data Location = Location'
{ _lName :: !(Maybe Text)
, _lMetadata :: !(Maybe LocationMetadata)
, _lDisplayName :: !(Maybe Text)
, _lLabels :: !(Maybe LocationLabels)
, _lLocationId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
location
:: Location
location =
Location'
{ _lName = Nothing
, _lMetadata = Nothing
, _lDisplayName = Nothing
, _lLabels = Nothing
, _lLocationId = Nothing
}
lName :: Lens' Location (Maybe Text)
lName = lens _lName (\ s a -> s{_lName = a})
lMetadata :: Lens' Location (Maybe LocationMetadata)
lMetadata
= lens _lMetadata (\ s a -> s{_lMetadata = a})
lDisplayName :: Lens' Location (Maybe Text)
lDisplayName
= lens _lDisplayName (\ s a -> s{_lDisplayName = a})
lLabels :: Lens' Location (Maybe LocationLabels)
lLabels = lens _lLabels (\ s a -> s{_lLabels = a})
lLocationId :: Lens' Location (Maybe Text)
lLocationId
= lens _lLocationId (\ s a -> s{_lLocationId = a})
instance FromJSON Location where
parseJSON
= withObject "Location"
(\ o ->
Location' <$>
(o .:? "name") <*> (o .:? "metadata") <*>
(o .:? "displayName")
<*> (o .:? "labels")
<*> (o .:? "locationId"))
instance ToJSON Location where
toJSON Location'{..}
= object
(catMaybes
[("name" .=) <$> _lName,
("metadata" .=) <$> _lMetadata,
("displayName" .=) <$> _lDisplayName,
("labels" .=) <$> _lLabels,
("locationId" .=) <$> _lLocationId])
data GoogleCloudRedisV1ZoneMetadata =
GoogleCloudRedisV1ZoneMetadata'
deriving (Eq,Show,Data,Typeable,Generic)
googleCloudRedisV1ZoneMetadata
:: GoogleCloudRedisV1ZoneMetadata
googleCloudRedisV1ZoneMetadata = GoogleCloudRedisV1ZoneMetadata'
instance FromJSON GoogleCloudRedisV1ZoneMetadata
where
parseJSON
= withObject "GoogleCloudRedisV1ZoneMetadata"
(\ o -> pure GoogleCloudRedisV1ZoneMetadata')
instance ToJSON GoogleCloudRedisV1ZoneMetadata where
toJSON = const emptyObject
data Operation = Operation'
{ _oDone :: !(Maybe Bool)
, _oError :: !(Maybe Status)
, _oResponse :: !(Maybe OperationResponse)
, _oName :: !(Maybe Text)
, _oMetadata :: !(Maybe OperationMetadata)
} deriving (Eq,Show,Data,Typeable,Generic)
operation
:: Operation
operation =
Operation'
{ _oDone = Nothing
, _oError = Nothing
, _oResponse = Nothing
, _oName = Nothing
, _oMetadata = Nothing
}
oDone :: Lens' Operation (Maybe Bool)
oDone = lens _oDone (\ s a -> s{_oDone = a})
oError :: Lens' Operation (Maybe Status)
oError = lens _oError (\ s a -> s{_oError = a})
oResponse :: Lens' Operation (Maybe OperationResponse)
oResponse
= lens _oResponse (\ s a -> s{_oResponse = a})
oName :: Lens' Operation (Maybe Text)
oName = lens _oName (\ s a -> s{_oName = a})
oMetadata :: Lens' Operation (Maybe OperationMetadata)
oMetadata
= lens _oMetadata (\ s a -> s{_oMetadata = a})
instance FromJSON Operation where
parseJSON
= withObject "Operation"
(\ o ->
Operation' <$>
(o .:? "done") <*> (o .:? "error") <*>
(o .:? "response")
<*> (o .:? "name")
<*> (o .:? "metadata"))
instance ToJSON Operation where
toJSON Operation'{..}
= object
(catMaybes
[("done" .=) <$> _oDone, ("error" .=) <$> _oError,
("response" .=) <$> _oResponse,
("name" .=) <$> _oName,
("metadata" .=) <$> _oMetadata])
data Empty =
Empty'
deriving (Eq,Show,Data,Typeable,Generic)
empty
:: Empty
empty = Empty'
instance FromJSON Empty where
parseJSON = withObject "Empty" (\ o -> pure Empty')
instance ToJSON Empty where
toJSON = const emptyObject
newtype StatusDetailsItem = StatusDetailsItem'
{ _sdiAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
statusDetailsItem
:: HashMap Text JSONValue
-> StatusDetailsItem
statusDetailsItem pSdiAddtional_ =
StatusDetailsItem'
{ _sdiAddtional = _Coerce # pSdiAddtional_
}
sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue)
sdiAddtional
= lens _sdiAddtional (\ s a -> s{_sdiAddtional = a})
. _Coerce
instance FromJSON StatusDetailsItem where
parseJSON
= withObject "StatusDetailsItem"
(\ o -> StatusDetailsItem' <$> (parseJSONObject o))
instance ToJSON StatusDetailsItem where
toJSON = toJSON . _sdiAddtional
newtype GoogleCloudRedisV1LocationMetadata = GoogleCloudRedisV1LocationMetadata'
{ _gcrvlmAvailableZones :: Maybe GoogleCloudRedisV1LocationMetadataAvailableZones
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudRedisV1LocationMetadata
:: GoogleCloudRedisV1LocationMetadata
googleCloudRedisV1LocationMetadata =
GoogleCloudRedisV1LocationMetadata'
{ _gcrvlmAvailableZones = Nothing
}
gcrvlmAvailableZones :: Lens' GoogleCloudRedisV1LocationMetadata (Maybe GoogleCloudRedisV1LocationMetadataAvailableZones)
gcrvlmAvailableZones
= lens _gcrvlmAvailableZones
(\ s a -> s{_gcrvlmAvailableZones = a})
instance FromJSON GoogleCloudRedisV1LocationMetadata
where
parseJSON
= withObject "GoogleCloudRedisV1LocationMetadata"
(\ o ->
GoogleCloudRedisV1LocationMetadata' <$>
(o .:? "availableZones"))
instance ToJSON GoogleCloudRedisV1LocationMetadata
where
toJSON GoogleCloudRedisV1LocationMetadata'{..}
= object
(catMaybes
[("availableZones" .=) <$> _gcrvlmAvailableZones])
data GoogleCloudRedisV1OperationMetadata = GoogleCloudRedisV1OperationMetadata'
{ _gcrvomAPIVersion :: !(Maybe Text)
, _gcrvomEndTime :: !(Maybe DateTime')
, _gcrvomStatusDetail :: !(Maybe Text)
, _gcrvomVerb :: !(Maybe Text)
, _gcrvomCancelRequested :: !(Maybe Bool)
, _gcrvomTarget :: !(Maybe Text)
, _gcrvomCreateTime :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudRedisV1OperationMetadata
:: GoogleCloudRedisV1OperationMetadata
googleCloudRedisV1OperationMetadata =
GoogleCloudRedisV1OperationMetadata'
{ _gcrvomAPIVersion = Nothing
, _gcrvomEndTime = Nothing
, _gcrvomStatusDetail = Nothing
, _gcrvomVerb = Nothing
, _gcrvomCancelRequested = Nothing
, _gcrvomTarget = Nothing
, _gcrvomCreateTime = Nothing
}
gcrvomAPIVersion :: Lens' GoogleCloudRedisV1OperationMetadata (Maybe Text)
gcrvomAPIVersion
= lens _gcrvomAPIVersion
(\ s a -> s{_gcrvomAPIVersion = a})
gcrvomEndTime :: Lens' GoogleCloudRedisV1OperationMetadata (Maybe UTCTime)
gcrvomEndTime
= lens _gcrvomEndTime
(\ s a -> s{_gcrvomEndTime = a})
. mapping _DateTime
gcrvomStatusDetail :: Lens' GoogleCloudRedisV1OperationMetadata (Maybe Text)
gcrvomStatusDetail
= lens _gcrvomStatusDetail
(\ s a -> s{_gcrvomStatusDetail = a})
gcrvomVerb :: Lens' GoogleCloudRedisV1OperationMetadata (Maybe Text)
gcrvomVerb
= lens _gcrvomVerb (\ s a -> s{_gcrvomVerb = a})
gcrvomCancelRequested :: Lens' GoogleCloudRedisV1OperationMetadata (Maybe Bool)
gcrvomCancelRequested
= lens _gcrvomCancelRequested
(\ s a -> s{_gcrvomCancelRequested = a})
gcrvomTarget :: Lens' GoogleCloudRedisV1OperationMetadata (Maybe Text)
gcrvomTarget
= lens _gcrvomTarget (\ s a -> s{_gcrvomTarget = a})
gcrvomCreateTime :: Lens' GoogleCloudRedisV1OperationMetadata (Maybe UTCTime)
gcrvomCreateTime
= lens _gcrvomCreateTime
(\ s a -> s{_gcrvomCreateTime = a})
. mapping _DateTime
instance FromJSON GoogleCloudRedisV1OperationMetadata
where
parseJSON
= withObject "GoogleCloudRedisV1OperationMetadata"
(\ o ->
GoogleCloudRedisV1OperationMetadata' <$>
(o .:? "apiVersion") <*> (o .:? "endTime") <*>
(o .:? "statusDetail")
<*> (o .:? "verb")
<*> (o .:? "cancelRequested")
<*> (o .:? "target")
<*> (o .:? "createTime"))
instance ToJSON GoogleCloudRedisV1OperationMetadata
where
toJSON GoogleCloudRedisV1OperationMetadata'{..}
= object
(catMaybes
[("apiVersion" .=) <$> _gcrvomAPIVersion,
("endTime" .=) <$> _gcrvomEndTime,
("statusDetail" .=) <$> _gcrvomStatusDetail,
("verb" .=) <$> _gcrvomVerb,
("cancelRequested" .=) <$> _gcrvomCancelRequested,
("target" .=) <$> _gcrvomTarget,
("createTime" .=) <$> _gcrvomCreateTime])
newtype InstanceRedisConfigs = InstanceRedisConfigs'
{ _ircAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
instanceRedisConfigs
:: HashMap Text Text
-> InstanceRedisConfigs
instanceRedisConfigs pIrcAddtional_ =
InstanceRedisConfigs'
{ _ircAddtional = _Coerce # pIrcAddtional_
}
ircAddtional :: Lens' InstanceRedisConfigs (HashMap Text Text)
ircAddtional
= lens _ircAddtional (\ s a -> s{_ircAddtional = a})
. _Coerce
instance FromJSON InstanceRedisConfigs where
parseJSON
= withObject "InstanceRedisConfigs"
(\ o ->
InstanceRedisConfigs' <$> (parseJSONObject o))
instance ToJSON InstanceRedisConfigs where
toJSON = toJSON . _ircAddtional
newtype GoogleCloudRedisV1LocationMetadataAvailableZones = GoogleCloudRedisV1LocationMetadataAvailableZones'
{ _gcrvlmazAddtional :: HashMap Text GoogleCloudRedisV1ZoneMetadata
} deriving (Eq,Show,Data,Typeable,Generic)
googleCloudRedisV1LocationMetadataAvailableZones
:: HashMap Text GoogleCloudRedisV1ZoneMetadata
-> GoogleCloudRedisV1LocationMetadataAvailableZones
googleCloudRedisV1LocationMetadataAvailableZones pGcrvlmazAddtional_ =
GoogleCloudRedisV1LocationMetadataAvailableZones'
{ _gcrvlmazAddtional = _Coerce # pGcrvlmazAddtional_
}
gcrvlmazAddtional :: Lens' GoogleCloudRedisV1LocationMetadataAvailableZones (HashMap Text GoogleCloudRedisV1ZoneMetadata)
gcrvlmazAddtional
= lens _gcrvlmazAddtional
(\ s a -> s{_gcrvlmazAddtional = a})
. _Coerce
instance FromJSON
GoogleCloudRedisV1LocationMetadataAvailableZones
where
parseJSON
= withObject
"GoogleCloudRedisV1LocationMetadataAvailableZones"
(\ o ->
GoogleCloudRedisV1LocationMetadataAvailableZones' <$>
(parseJSONObject o))
instance ToJSON
GoogleCloudRedisV1LocationMetadataAvailableZones
where
toJSON = toJSON . _gcrvlmazAddtional
newtype LocationLabels = LocationLabels'
{ _llAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
locationLabels
:: HashMap Text Text
-> LocationLabels
locationLabels pLlAddtional_ =
LocationLabels'
{ _llAddtional = _Coerce # pLlAddtional_
}
llAddtional :: Lens' LocationLabels (HashMap Text Text)
llAddtional
= lens _llAddtional (\ s a -> s{_llAddtional = a}) .
_Coerce
instance FromJSON LocationLabels where
parseJSON
= withObject "LocationLabels"
(\ o -> LocationLabels' <$> (parseJSONObject o))
instance ToJSON LocationLabels where
toJSON = toJSON . _llAddtional
newtype LocationMetadata = LocationMetadata'
{ _lmAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
locationMetadata
:: HashMap Text JSONValue
-> LocationMetadata
locationMetadata pLmAddtional_ =
LocationMetadata'
{ _lmAddtional = _Coerce # pLmAddtional_
}
lmAddtional :: Lens' LocationMetadata (HashMap Text JSONValue)
lmAddtional
= lens _lmAddtional (\ s a -> s{_lmAddtional = a}) .
_Coerce
instance FromJSON LocationMetadata where
parseJSON
= withObject "LocationMetadata"
(\ o -> LocationMetadata' <$> (parseJSONObject o))
instance ToJSON LocationMetadata where
toJSON = toJSON . _lmAddtional
newtype OperationMetadata = OperationMetadata'
{ _omAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
operationMetadata
:: HashMap Text JSONValue
-> OperationMetadata
operationMetadata pOmAddtional_ =
OperationMetadata'
{ _omAddtional = _Coerce # pOmAddtional_
}
omAddtional :: Lens' OperationMetadata (HashMap Text JSONValue)
omAddtional
= lens _omAddtional (\ s a -> s{_omAddtional = a}) .
_Coerce
instance FromJSON OperationMetadata where
parseJSON
= withObject "OperationMetadata"
(\ o -> OperationMetadata' <$> (parseJSONObject o))
instance ToJSON OperationMetadata where
toJSON = toJSON . _omAddtional
data ListInstancesResponse = ListInstancesResponse'
{ _lirNextPageToken :: !(Maybe Text)
, _lirUnreachable :: !(Maybe [Text])
, _lirInstances :: !(Maybe [Instance])
} deriving (Eq,Show,Data,Typeable,Generic)
listInstancesResponse
:: ListInstancesResponse
listInstancesResponse =
ListInstancesResponse'
{ _lirNextPageToken = Nothing
, _lirUnreachable = Nothing
, _lirInstances = Nothing
}
lirNextPageToken :: Lens' ListInstancesResponse (Maybe Text)
lirNextPageToken
= lens _lirNextPageToken
(\ s a -> s{_lirNextPageToken = a})
lirUnreachable :: Lens' ListInstancesResponse [Text]
lirUnreachable
= lens _lirUnreachable
(\ s a -> s{_lirUnreachable = a})
. _Default
. _Coerce
lirInstances :: Lens' ListInstancesResponse [Instance]
lirInstances
= lens _lirInstances (\ s a -> s{_lirInstances = a})
. _Default
. _Coerce
instance FromJSON ListInstancesResponse where
parseJSON
= withObject "ListInstancesResponse"
(\ o ->
ListInstancesResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "unreachable" .!= mempty)
<*> (o .:? "instances" .!= mempty))
instance ToJSON ListInstancesResponse where
toJSON ListInstancesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lirNextPageToken,
("unreachable" .=) <$> _lirUnreachable,
("instances" .=) <$> _lirInstances])
newtype OperationResponse = OperationResponse'
{ _orAddtional :: HashMap Text JSONValue
} deriving (Eq,Show,Data,Typeable,Generic)
operationResponse
:: HashMap Text JSONValue
-> OperationResponse
operationResponse pOrAddtional_ =
OperationResponse'
{ _orAddtional = _Coerce # pOrAddtional_
}
orAddtional :: Lens' OperationResponse (HashMap Text JSONValue)
orAddtional
= lens _orAddtional (\ s a -> s{_orAddtional = a}) .
_Coerce
instance FromJSON OperationResponse where
parseJSON
= withObject "OperationResponse"
(\ o -> OperationResponse' <$> (parseJSONObject o))
instance ToJSON OperationResponse where
toJSON = toJSON . _orAddtional
data Instance = Instance'
{ _iState :: !(Maybe InstanceState)
, _iAuthorizedNetwork :: !(Maybe Text)
, _iMemorySizeGb :: !(Maybe (Textual Int32))
, _iName :: !(Maybe Text)
, _iStatusMessage :: !(Maybe Text)
, _iAlternativeLocationId :: !(Maybe Text)
, _iReservedIPRange :: !(Maybe Text)
, _iTier :: !(Maybe InstanceTier)
, _iDisplayName :: !(Maybe Text)
, _iLabels :: !(Maybe InstanceLabels)
, _iLocationId :: !(Maybe Text)
, _iHost :: !(Maybe Text)
, _iRedisConfigs :: !(Maybe InstanceRedisConfigs)
, _iRedisVersion :: !(Maybe Text)
, _iCreateTime :: !(Maybe DateTime')
, _iPort :: !(Maybe (Textual Int32))
, _iCurrentLocationId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
instance'
:: Instance
instance' =
Instance'
{ _iState = Nothing
, _iAuthorizedNetwork = Nothing
, _iMemorySizeGb = Nothing
, _iName = Nothing
, _iStatusMessage = Nothing
, _iAlternativeLocationId = Nothing
, _iReservedIPRange = Nothing
, _iTier = Nothing
, _iDisplayName = Nothing
, _iLabels = Nothing
, _iLocationId = Nothing
, _iHost = Nothing
, _iRedisConfigs = Nothing
, _iRedisVersion = Nothing
, _iCreateTime = Nothing
, _iPort = Nothing
, _iCurrentLocationId = Nothing
}
iState :: Lens' Instance (Maybe InstanceState)
iState = lens _iState (\ s a -> s{_iState = a})
iAuthorizedNetwork :: Lens' Instance (Maybe Text)
iAuthorizedNetwork
= lens _iAuthorizedNetwork
(\ s a -> s{_iAuthorizedNetwork = a})
iMemorySizeGb :: Lens' Instance (Maybe Int32)
iMemorySizeGb
= lens _iMemorySizeGb
(\ s a -> s{_iMemorySizeGb = a})
. mapping _Coerce
iName :: Lens' Instance (Maybe Text)
iName = lens _iName (\ s a -> s{_iName = a})
iStatusMessage :: Lens' Instance (Maybe Text)
iStatusMessage
= lens _iStatusMessage
(\ s a -> s{_iStatusMessage = a})
iAlternativeLocationId :: Lens' Instance (Maybe Text)
iAlternativeLocationId
= lens _iAlternativeLocationId
(\ s a -> s{_iAlternativeLocationId = a})
iReservedIPRange :: Lens' Instance (Maybe Text)
iReservedIPRange
= lens _iReservedIPRange
(\ s a -> s{_iReservedIPRange = a})
iTier :: Lens' Instance (Maybe InstanceTier)
iTier = lens _iTier (\ s a -> s{_iTier = a})
iDisplayName :: Lens' Instance (Maybe Text)
iDisplayName
= lens _iDisplayName (\ s a -> s{_iDisplayName = a})
iLabels :: Lens' Instance (Maybe InstanceLabels)
iLabels = lens _iLabels (\ s a -> s{_iLabels = a})
iLocationId :: Lens' Instance (Maybe Text)
iLocationId
= lens _iLocationId (\ s a -> s{_iLocationId = a})
iHost :: Lens' Instance (Maybe Text)
iHost = lens _iHost (\ s a -> s{_iHost = a})
iRedisConfigs :: Lens' Instance (Maybe InstanceRedisConfigs)
iRedisConfigs
= lens _iRedisConfigs
(\ s a -> s{_iRedisConfigs = a})
iRedisVersion :: Lens' Instance (Maybe Text)
iRedisVersion
= lens _iRedisVersion
(\ s a -> s{_iRedisVersion = a})
iCreateTime :: Lens' Instance (Maybe UTCTime)
iCreateTime
= lens _iCreateTime (\ s a -> s{_iCreateTime = a}) .
mapping _DateTime
iPort :: Lens' Instance (Maybe Int32)
iPort
= lens _iPort (\ s a -> s{_iPort = a}) .
mapping _Coerce
iCurrentLocationId :: Lens' Instance (Maybe Text)
iCurrentLocationId
= lens _iCurrentLocationId
(\ s a -> s{_iCurrentLocationId = a})
instance FromJSON Instance where
parseJSON
= withObject "Instance"
(\ o ->
Instance' <$>
(o .:? "state") <*> (o .:? "authorizedNetwork") <*>
(o .:? "memorySizeGb")
<*> (o .:? "name")
<*> (o .:? "statusMessage")
<*> (o .:? "alternativeLocationId")
<*> (o .:? "reservedIpRange")
<*> (o .:? "tier")
<*> (o .:? "displayName")
<*> (o .:? "labels")
<*> (o .:? "locationId")
<*> (o .:? "host")
<*> (o .:? "redisConfigs")
<*> (o .:? "redisVersion")
<*> (o .:? "createTime")
<*> (o .:? "port")
<*> (o .:? "currentLocationId"))
instance ToJSON Instance where
toJSON Instance'{..}
= object
(catMaybes
[("state" .=) <$> _iState,
("authorizedNetwork" .=) <$> _iAuthorizedNetwork,
("memorySizeGb" .=) <$> _iMemorySizeGb,
("name" .=) <$> _iName,
("statusMessage" .=) <$> _iStatusMessage,
("alternativeLocationId" .=) <$>
_iAlternativeLocationId,
("reservedIpRange" .=) <$> _iReservedIPRange,
("tier" .=) <$> _iTier,
("displayName" .=) <$> _iDisplayName,
("labels" .=) <$> _iLabels,
("locationId" .=) <$> _iLocationId,
("host" .=) <$> _iHost,
("redisConfigs" .=) <$> _iRedisConfigs,
("redisVersion" .=) <$> _iRedisVersion,
("createTime" .=) <$> _iCreateTime,
("port" .=) <$> _iPort,
("currentLocationId" .=) <$> _iCurrentLocationId])