module Network.AWS.CodeDeploy.RegisterOnPremisesInstance
(
RegisterOnPremisesInstance
, registerOnPremisesInstance
, ropiIamUserArn
, ropiInstanceName
, RegisterOnPremisesInstanceResponse
, registerOnPremisesInstanceResponse
) where
import Network.AWS.Data (Object)
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.CodeDeploy.Types
import qualified GHC.Exts
data RegisterOnPremisesInstance = RegisterOnPremisesInstance
{ _ropiIamUserArn :: Text
, _ropiInstanceName :: Text
} deriving (Eq, Ord, Read, Show)
registerOnPremisesInstance :: Text
-> Text
-> RegisterOnPremisesInstance
registerOnPremisesInstance p1 p2 = RegisterOnPremisesInstance
{ _ropiInstanceName = p1
, _ropiIamUserArn = p2
}
ropiIamUserArn :: Lens' RegisterOnPremisesInstance Text
ropiIamUserArn = lens _ropiIamUserArn (\s a -> s { _ropiIamUserArn = a })
ropiInstanceName :: Lens' RegisterOnPremisesInstance Text
ropiInstanceName = lens _ropiInstanceName (\s a -> s { _ropiInstanceName = a })
data RegisterOnPremisesInstanceResponse = RegisterOnPremisesInstanceResponse
deriving (Eq, Ord, Read, Show, Generic)
registerOnPremisesInstanceResponse :: RegisterOnPremisesInstanceResponse
registerOnPremisesInstanceResponse = RegisterOnPremisesInstanceResponse
instance ToPath RegisterOnPremisesInstance where
toPath = const "/"
instance ToQuery RegisterOnPremisesInstance where
toQuery = const mempty
instance ToHeaders RegisterOnPremisesInstance
instance ToJSON RegisterOnPremisesInstance where
toJSON RegisterOnPremisesInstance{..} = object
[ "instanceName" .= _ropiInstanceName
, "iamUserArn" .= _ropiIamUserArn
]
instance AWSRequest RegisterOnPremisesInstance where
type Sv RegisterOnPremisesInstance = CodeDeploy
type Rs RegisterOnPremisesInstance = RegisterOnPremisesInstanceResponse
request = post "RegisterOnPremisesInstance"
response = nullResponse RegisterOnPremisesInstanceResponse