module Network.AWS.CodeDeploy.RegisterOnPremisesInstance
(
registerOnPremisesInstance
, RegisterOnPremisesInstance
, ropiInstanceName
, ropiIamUserARN
, registerOnPremisesInstanceResponse
, RegisterOnPremisesInstanceResponse
) where
import Network.AWS.CodeDeploy.Types
import Network.AWS.CodeDeploy.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data RegisterOnPremisesInstance = RegisterOnPremisesInstance'
{ _ropiInstanceName :: !Text
, _ropiIamUserARN :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
registerOnPremisesInstance
:: Text
-> Text
-> RegisterOnPremisesInstance
registerOnPremisesInstance pInstanceName_ pIamUserARN_ =
RegisterOnPremisesInstance'
{ _ropiInstanceName = pInstanceName_
, _ropiIamUserARN = pIamUserARN_
}
ropiInstanceName :: Lens' RegisterOnPremisesInstance Text
ropiInstanceName = lens _ropiInstanceName (\ s a -> s{_ropiInstanceName = a});
ropiIamUserARN :: Lens' RegisterOnPremisesInstance Text
ropiIamUserARN = lens _ropiIamUserARN (\ s a -> s{_ropiIamUserARN = a});
instance AWSRequest RegisterOnPremisesInstance where
type Rs RegisterOnPremisesInstance =
RegisterOnPremisesInstanceResponse
request = postJSON codeDeploy
response
= receiveNull RegisterOnPremisesInstanceResponse'
instance ToHeaders RegisterOnPremisesInstance where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeDeploy_20141006.RegisterOnPremisesInstance" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON RegisterOnPremisesInstance where
toJSON RegisterOnPremisesInstance'{..}
= object
(catMaybes
[Just ("instanceName" .= _ropiInstanceName),
Just ("iamUserArn" .= _ropiIamUserARN)])
instance ToPath RegisterOnPremisesInstance where
toPath = const "/"
instance ToQuery RegisterOnPremisesInstance where
toQuery = const mempty
data RegisterOnPremisesInstanceResponse =
RegisterOnPremisesInstanceResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
registerOnPremisesInstanceResponse
:: RegisterOnPremisesInstanceResponse
registerOnPremisesInstanceResponse = RegisterOnPremisesInstanceResponse'