{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.SMS.Types.Product where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.SMS.Types.Sum
data Connector = Connector'
{ _cStatus :: !(Maybe ConnectorStatus)
, _cVmManagerName :: !(Maybe Text)
, _cIpAddress :: !(Maybe Text)
, _cVmManagerId :: !(Maybe Text)
, _cVmManagerType :: !(Maybe VMManagerType)
, _cConnectorId :: !(Maybe Text)
, _cAssociatedOn :: !(Maybe POSIX)
, _cMacAddress :: !(Maybe Text)
, _cVersion :: !(Maybe Text)
, _cCapabilityList :: !(Maybe [ConnectorCapability])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
connector
:: Connector
connector =
Connector'
{ _cStatus = Nothing
, _cVmManagerName = Nothing
, _cIpAddress = Nothing
, _cVmManagerId = Nothing
, _cVmManagerType = Nothing
, _cConnectorId = Nothing
, _cAssociatedOn = Nothing
, _cMacAddress = Nothing
, _cVersion = Nothing
, _cCapabilityList = Nothing
}
cStatus :: Lens' Connector (Maybe ConnectorStatus)
cStatus = lens _cStatus (\ s a -> s{_cStatus = a})
cVmManagerName :: Lens' Connector (Maybe Text)
cVmManagerName = lens _cVmManagerName (\ s a -> s{_cVmManagerName = a})
cIpAddress :: Lens' Connector (Maybe Text)
cIpAddress = lens _cIpAddress (\ s a -> s{_cIpAddress = a})
cVmManagerId :: Lens' Connector (Maybe Text)
cVmManagerId = lens _cVmManagerId (\ s a -> s{_cVmManagerId = a})
cVmManagerType :: Lens' Connector (Maybe VMManagerType)
cVmManagerType = lens _cVmManagerType (\ s a -> s{_cVmManagerType = a})
cConnectorId :: Lens' Connector (Maybe Text)
cConnectorId = lens _cConnectorId (\ s a -> s{_cConnectorId = a})
cAssociatedOn :: Lens' Connector (Maybe UTCTime)
cAssociatedOn = lens _cAssociatedOn (\ s a -> s{_cAssociatedOn = a}) . mapping _Time
cMacAddress :: Lens' Connector (Maybe Text)
cMacAddress = lens _cMacAddress (\ s a -> s{_cMacAddress = a})
cVersion :: Lens' Connector (Maybe Text)
cVersion = lens _cVersion (\ s a -> s{_cVersion = a})
cCapabilityList :: Lens' Connector [ConnectorCapability]
cCapabilityList = lens _cCapabilityList (\ s a -> s{_cCapabilityList = a}) . _Default . _Coerce
instance FromJSON Connector where
parseJSON
= withObject "Connector"
(\ x ->
Connector' <$>
(x .:? "status") <*> (x .:? "vmManagerName") <*>
(x .:? "ipAddress")
<*> (x .:? "vmManagerId")
<*> (x .:? "vmManagerType")
<*> (x .:? "connectorId")
<*> (x .:? "associatedOn")
<*> (x .:? "macAddress")
<*> (x .:? "version")
<*> (x .:? "capabilityList" .!= mempty))
instance Hashable Connector where
instance NFData Connector where
data ReplicationJob = ReplicationJob'
{ _rjFrequency :: !(Maybe Int)
, _rjState :: !(Maybe ReplicationJobState)
, _rjServerType :: !(Maybe ServerType)
, _rjServerId :: !(Maybe Text)
, _rjLicenseType :: !(Maybe LicenseType)
, _rjRoleName :: !(Maybe Text)
, _rjVmServer :: !(Maybe VMServer)
, _rjReplicationJobId :: !(Maybe Text)
, _rjReplicationRunList :: !(Maybe [ReplicationRun])
, _rjNextReplicationRunStartTime :: !(Maybe POSIX)
, _rjStatusMessage :: !(Maybe Text)
, _rjLatestAMIId :: !(Maybe Text)
, _rjSeedReplicationTime :: !(Maybe POSIX)
, _rjDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
replicationJob
:: ReplicationJob
replicationJob =
ReplicationJob'
{ _rjFrequency = Nothing
, _rjState = Nothing
, _rjServerType = Nothing
, _rjServerId = Nothing
, _rjLicenseType = Nothing
, _rjRoleName = Nothing
, _rjVmServer = Nothing
, _rjReplicationJobId = Nothing
, _rjReplicationRunList = Nothing
, _rjNextReplicationRunStartTime = Nothing
, _rjStatusMessage = Nothing
, _rjLatestAMIId = Nothing
, _rjSeedReplicationTime = Nothing
, _rjDescription = Nothing
}
rjFrequency :: Lens' ReplicationJob (Maybe Int)
rjFrequency = lens _rjFrequency (\ s a -> s{_rjFrequency = a})
rjState :: Lens' ReplicationJob (Maybe ReplicationJobState)
rjState = lens _rjState (\ s a -> s{_rjState = a})
rjServerType :: Lens' ReplicationJob (Maybe ServerType)
rjServerType = lens _rjServerType (\ s a -> s{_rjServerType = a})
rjServerId :: Lens' ReplicationJob (Maybe Text)
rjServerId = lens _rjServerId (\ s a -> s{_rjServerId = a})
rjLicenseType :: Lens' ReplicationJob (Maybe LicenseType)
rjLicenseType = lens _rjLicenseType (\ s a -> s{_rjLicenseType = a})
rjRoleName :: Lens' ReplicationJob (Maybe Text)
rjRoleName = lens _rjRoleName (\ s a -> s{_rjRoleName = a})
rjVmServer :: Lens' ReplicationJob (Maybe VMServer)
rjVmServer = lens _rjVmServer (\ s a -> s{_rjVmServer = a})
rjReplicationJobId :: Lens' ReplicationJob (Maybe Text)
rjReplicationJobId = lens _rjReplicationJobId (\ s a -> s{_rjReplicationJobId = a})
rjReplicationRunList :: Lens' ReplicationJob [ReplicationRun]
rjReplicationRunList = lens _rjReplicationRunList (\ s a -> s{_rjReplicationRunList = a}) . _Default . _Coerce
rjNextReplicationRunStartTime :: Lens' ReplicationJob (Maybe UTCTime)
rjNextReplicationRunStartTime = lens _rjNextReplicationRunStartTime (\ s a -> s{_rjNextReplicationRunStartTime = a}) . mapping _Time
rjStatusMessage :: Lens' ReplicationJob (Maybe Text)
rjStatusMessage = lens _rjStatusMessage (\ s a -> s{_rjStatusMessage = a})
rjLatestAMIId :: Lens' ReplicationJob (Maybe Text)
rjLatestAMIId = lens _rjLatestAMIId (\ s a -> s{_rjLatestAMIId = a})
rjSeedReplicationTime :: Lens' ReplicationJob (Maybe UTCTime)
rjSeedReplicationTime = lens _rjSeedReplicationTime (\ s a -> s{_rjSeedReplicationTime = a}) . mapping _Time
rjDescription :: Lens' ReplicationJob (Maybe Text)
rjDescription = lens _rjDescription (\ s a -> s{_rjDescription = a})
instance FromJSON ReplicationJob where
parseJSON
= withObject "ReplicationJob"
(\ x ->
ReplicationJob' <$>
(x .:? "frequency") <*> (x .:? "state") <*>
(x .:? "serverType")
<*> (x .:? "serverId")
<*> (x .:? "licenseType")
<*> (x .:? "roleName")
<*> (x .:? "vmServer")
<*> (x .:? "replicationJobId")
<*> (x .:? "replicationRunList" .!= mempty)
<*> (x .:? "nextReplicationRunStartTime")
<*> (x .:? "statusMessage")
<*> (x .:? "latestAmiId")
<*> (x .:? "seedReplicationTime")
<*> (x .:? "description"))
instance Hashable ReplicationJob where
instance NFData ReplicationJob where
data ReplicationRun = ReplicationRun'
{ _rrState :: !(Maybe ReplicationRunState)
, _rrReplicationRunId :: !(Maybe Text)
, _rrScheduledStartTime :: !(Maybe POSIX)
, _rrStatusMessage :: !(Maybe Text)
, _rrCompletedTime :: !(Maybe POSIX)
, _rrAmiId :: !(Maybe Text)
, _rrType :: !(Maybe ReplicationRunType)
, _rrDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
replicationRun
:: ReplicationRun
replicationRun =
ReplicationRun'
{ _rrState = Nothing
, _rrReplicationRunId = Nothing
, _rrScheduledStartTime = Nothing
, _rrStatusMessage = Nothing
, _rrCompletedTime = Nothing
, _rrAmiId = Nothing
, _rrType = Nothing
, _rrDescription = Nothing
}
rrState :: Lens' ReplicationRun (Maybe ReplicationRunState)
rrState = lens _rrState (\ s a -> s{_rrState = a})
rrReplicationRunId :: Lens' ReplicationRun (Maybe Text)
rrReplicationRunId = lens _rrReplicationRunId (\ s a -> s{_rrReplicationRunId = a})
rrScheduledStartTime :: Lens' ReplicationRun (Maybe UTCTime)
rrScheduledStartTime = lens _rrScheduledStartTime (\ s a -> s{_rrScheduledStartTime = a}) . mapping _Time
rrStatusMessage :: Lens' ReplicationRun (Maybe Text)
rrStatusMessage = lens _rrStatusMessage (\ s a -> s{_rrStatusMessage = a})
rrCompletedTime :: Lens' ReplicationRun (Maybe UTCTime)
rrCompletedTime = lens _rrCompletedTime (\ s a -> s{_rrCompletedTime = a}) . mapping _Time
rrAmiId :: Lens' ReplicationRun (Maybe Text)
rrAmiId = lens _rrAmiId (\ s a -> s{_rrAmiId = a})
rrType :: Lens' ReplicationRun (Maybe ReplicationRunType)
rrType = lens _rrType (\ s a -> s{_rrType = a})
rrDescription :: Lens' ReplicationRun (Maybe Text)
rrDescription = lens _rrDescription (\ s a -> s{_rrDescription = a})
instance FromJSON ReplicationRun where
parseJSON
= withObject "ReplicationRun"
(\ x ->
ReplicationRun' <$>
(x .:? "state") <*> (x .:? "replicationRunId") <*>
(x .:? "scheduledStartTime")
<*> (x .:? "statusMessage")
<*> (x .:? "completedTime")
<*> (x .:? "amiId")
<*> (x .:? "type")
<*> (x .:? "description"))
instance Hashable ReplicationRun where
instance NFData ReplicationRun where
data Server = Server'
{ _sServerType :: !(Maybe ServerType)
, _sServerId :: !(Maybe Text)
, _sReplicationJobTerminated :: !(Maybe Bool)
, _sVmServer :: !(Maybe VMServer)
, _sReplicationJobId :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
server
:: Server
server =
Server'
{ _sServerType = Nothing
, _sServerId = Nothing
, _sReplicationJobTerminated = Nothing
, _sVmServer = Nothing
, _sReplicationJobId = Nothing
}
sServerType :: Lens' Server (Maybe ServerType)
sServerType = lens _sServerType (\ s a -> s{_sServerType = a})
sServerId :: Lens' Server (Maybe Text)
sServerId = lens _sServerId (\ s a -> s{_sServerId = a})
sReplicationJobTerminated :: Lens' Server (Maybe Bool)
sReplicationJobTerminated = lens _sReplicationJobTerminated (\ s a -> s{_sReplicationJobTerminated = a})
sVmServer :: Lens' Server (Maybe VMServer)
sVmServer = lens _sVmServer (\ s a -> s{_sVmServer = a})
sReplicationJobId :: Lens' Server (Maybe Text)
sReplicationJobId = lens _sReplicationJobId (\ s a -> s{_sReplicationJobId = a})
instance FromJSON Server where
parseJSON
= withObject "Server"
(\ x ->
Server' <$>
(x .:? "serverType") <*> (x .:? "serverId") <*>
(x .:? "replicationJobTerminated")
<*> (x .:? "vmServer")
<*> (x .:? "replicationJobId"))
instance Hashable Server where
instance NFData Server where
data VMServer = VMServer'
{ _vmsVmManagerName :: !(Maybe Text)
, _vmsVmManagerType :: !(Maybe VMManagerType)
, _vmsVmServerAddress :: !(Maybe VMServerAddress)
, _vmsVmName :: !(Maybe Text)
, _vmsVmPath :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
vMServer
:: VMServer
vMServer =
VMServer'
{ _vmsVmManagerName = Nothing
, _vmsVmManagerType = Nothing
, _vmsVmServerAddress = Nothing
, _vmsVmName = Nothing
, _vmsVmPath = Nothing
}
vmsVmManagerName :: Lens' VMServer (Maybe Text)
vmsVmManagerName = lens _vmsVmManagerName (\ s a -> s{_vmsVmManagerName = a})
vmsVmManagerType :: Lens' VMServer (Maybe VMManagerType)
vmsVmManagerType = lens _vmsVmManagerType (\ s a -> s{_vmsVmManagerType = a})
vmsVmServerAddress :: Lens' VMServer (Maybe VMServerAddress)
vmsVmServerAddress = lens _vmsVmServerAddress (\ s a -> s{_vmsVmServerAddress = a})
vmsVmName :: Lens' VMServer (Maybe Text)
vmsVmName = lens _vmsVmName (\ s a -> s{_vmsVmName = a})
vmsVmPath :: Lens' VMServer (Maybe Text)
vmsVmPath = lens _vmsVmPath (\ s a -> s{_vmsVmPath = a})
instance FromJSON VMServer where
parseJSON
= withObject "VMServer"
(\ x ->
VMServer' <$>
(x .:? "vmManagerName") <*> (x .:? "vmManagerType")
<*> (x .:? "vmServerAddress")
<*> (x .:? "vmName")
<*> (x .:? "vmPath"))
instance Hashable VMServer where
instance NFData VMServer where
data VMServerAddress = VMServerAddress'
{ _vmsaVmManagerId :: !(Maybe Text)
, _vmsaVmId :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
vMServerAddress
:: VMServerAddress
vMServerAddress =
VMServerAddress' {_vmsaVmManagerId = Nothing, _vmsaVmId = Nothing}
vmsaVmManagerId :: Lens' VMServerAddress (Maybe Text)
vmsaVmManagerId = lens _vmsaVmManagerId (\ s a -> s{_vmsaVmManagerId = a})
vmsaVmId :: Lens' VMServerAddress (Maybe Text)
vmsaVmId = lens _vmsaVmId (\ s a -> s{_vmsaVmId = a})
instance FromJSON VMServerAddress where
parseJSON
= withObject "VMServerAddress"
(\ x ->
VMServerAddress' <$>
(x .:? "vmManagerId") <*> (x .:? "vmId"))
instance Hashable VMServerAddress where
instance NFData VMServerAddress where