{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.OpsWorks.RegisterEcsCluster
(
registerEcsCluster
, RegisterEcsCluster
, recEcsClusterARN
, recStackId
, registerEcsClusterResponse
, RegisterEcsClusterResponse
, recrsEcsClusterARN
, recrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.OpsWorks.Types
import Network.AWS.OpsWorks.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data RegisterEcsCluster = RegisterEcsCluster'
{ _recEcsClusterARN :: !Text
, _recStackId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
registerEcsCluster
:: Text
-> Text
-> RegisterEcsCluster
registerEcsCluster pEcsClusterARN_ pStackId_ =
RegisterEcsCluster'
{_recEcsClusterARN = pEcsClusterARN_, _recStackId = pStackId_}
recEcsClusterARN :: Lens' RegisterEcsCluster Text
recEcsClusterARN = lens _recEcsClusterARN (\ s a -> s{_recEcsClusterARN = a})
recStackId :: Lens' RegisterEcsCluster Text
recStackId = lens _recStackId (\ s a -> s{_recStackId = a})
instance AWSRequest RegisterEcsCluster where
type Rs RegisterEcsCluster =
RegisterEcsClusterResponse
request = postJSON opsWorks
response
= receiveJSON
(\ s h x ->
RegisterEcsClusterResponse' <$>
(x .?> "EcsClusterArn") <*> (pure (fromEnum s)))
instance Hashable RegisterEcsCluster where
instance NFData RegisterEcsCluster where
instance ToHeaders RegisterEcsCluster where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorks_20130218.RegisterEcsCluster" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON RegisterEcsCluster where
toJSON RegisterEcsCluster'{..}
= object
(catMaybes
[Just ("EcsClusterArn" .= _recEcsClusterARN),
Just ("StackId" .= _recStackId)])
instance ToPath RegisterEcsCluster where
toPath = const "/"
instance ToQuery RegisterEcsCluster where
toQuery = const mempty
data RegisterEcsClusterResponse = RegisterEcsClusterResponse'
{ _recrsEcsClusterARN :: !(Maybe Text)
, _recrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
registerEcsClusterResponse
:: Int
-> RegisterEcsClusterResponse
registerEcsClusterResponse pResponseStatus_ =
RegisterEcsClusterResponse'
{_recrsEcsClusterARN = Nothing, _recrsResponseStatus = pResponseStatus_}
recrsEcsClusterARN :: Lens' RegisterEcsClusterResponse (Maybe Text)
recrsEcsClusterARN = lens _recrsEcsClusterARN (\ s a -> s{_recrsEcsClusterARN = a})
recrsResponseStatus :: Lens' RegisterEcsClusterResponse Int
recrsResponseStatus = lens _recrsResponseStatus (\ s a -> s{_recrsResponseStatus = a})
instance NFData RegisterEcsClusterResponse where