module Network.AWS.ECS.RegisterContainerInstance
(
RegisterContainerInstance
, registerContainerInstance
, rciCluster
, rciInstanceIdentityDocument
, rciInstanceIdentityDocumentSignature
, rciTotalResources
, rciVersionInfo
, RegisterContainerInstanceResponse
, registerContainerInstanceResponse
, rcirContainerInstance
) where
import Network.AWS.Data (Object)
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.ECS.Types
import qualified GHC.Exts
data RegisterContainerInstance = RegisterContainerInstance
{ _rciCluster :: Maybe Text
, _rciInstanceIdentityDocument :: Maybe Text
, _rciInstanceIdentityDocumentSignature :: Maybe Text
, _rciTotalResources :: List "totalResources" Resource
, _rciVersionInfo :: Maybe VersionInfo
} deriving (Eq, Read, Show)
registerContainerInstance :: RegisterContainerInstance
registerContainerInstance = RegisterContainerInstance
{ _rciCluster = Nothing
, _rciInstanceIdentityDocument = Nothing
, _rciInstanceIdentityDocumentSignature = Nothing
, _rciTotalResources = mempty
, _rciVersionInfo = Nothing
}
rciCluster :: Lens' RegisterContainerInstance (Maybe Text)
rciCluster = lens _rciCluster (\s a -> s { _rciCluster = a })
rciInstanceIdentityDocument :: Lens' RegisterContainerInstance (Maybe Text)
rciInstanceIdentityDocument =
lens _rciInstanceIdentityDocument
(\s a -> s { _rciInstanceIdentityDocument = a })
rciInstanceIdentityDocumentSignature :: Lens' RegisterContainerInstance (Maybe Text)
rciInstanceIdentityDocumentSignature =
lens _rciInstanceIdentityDocumentSignature
(\s a -> s { _rciInstanceIdentityDocumentSignature = a })
rciTotalResources :: Lens' RegisterContainerInstance [Resource]
rciTotalResources =
lens _rciTotalResources (\s a -> s { _rciTotalResources = a })
. _List
rciVersionInfo :: Lens' RegisterContainerInstance (Maybe VersionInfo)
rciVersionInfo = lens _rciVersionInfo (\s a -> s { _rciVersionInfo = a })
newtype RegisterContainerInstanceResponse = RegisterContainerInstanceResponse
{ _rcirContainerInstance :: Maybe ContainerInstance
} deriving (Eq, Read, Show)
registerContainerInstanceResponse :: RegisterContainerInstanceResponse
registerContainerInstanceResponse = RegisterContainerInstanceResponse
{ _rcirContainerInstance = Nothing
}
rcirContainerInstance :: Lens' RegisterContainerInstanceResponse (Maybe ContainerInstance)
rcirContainerInstance =
lens _rcirContainerInstance (\s a -> s { _rcirContainerInstance = a })
instance ToPath RegisterContainerInstance where
toPath = const "/"
instance ToQuery RegisterContainerInstance where
toQuery = const mempty
instance ToHeaders RegisterContainerInstance
instance ToJSON RegisterContainerInstance where
toJSON RegisterContainerInstance{..} = object
[ "cluster" .= _rciCluster
, "instanceIdentityDocument" .= _rciInstanceIdentityDocument
, "instanceIdentityDocumentSignature" .= _rciInstanceIdentityDocumentSignature
, "totalResources" .= _rciTotalResources
, "versionInfo" .= _rciVersionInfo
]
instance AWSRequest RegisterContainerInstance where
type Sv RegisterContainerInstance = ECS
type Rs RegisterContainerInstance = RegisterContainerInstanceResponse
request = post "RegisterContainerInstance"
response = jsonResponse
instance FromJSON RegisterContainerInstanceResponse where
parseJSON = withObject "RegisterContainerInstanceResponse" $ \o -> RegisterContainerInstanceResponse
<$> o .:? "containerInstance"