module Network.AWS.CodeDeploy.GetOnPremisesInstance
(
getOnPremisesInstance
, GetOnPremisesInstance
, gopiInstanceName
, getOnPremisesInstanceResponse
, GetOnPremisesInstanceResponse
, gopirsInstanceInfo
, gopirsResponseStatus
) 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
newtype GetOnPremisesInstance = GetOnPremisesInstance'
{ _gopiInstanceName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getOnPremisesInstance
:: Text
-> GetOnPremisesInstance
getOnPremisesInstance pInstanceName_ =
GetOnPremisesInstance' {_gopiInstanceName = pInstanceName_}
gopiInstanceName :: Lens' GetOnPremisesInstance Text
gopiInstanceName = lens _gopiInstanceName (\ s a -> s{_gopiInstanceName = a});
instance AWSRequest GetOnPremisesInstance where
type Rs GetOnPremisesInstance =
GetOnPremisesInstanceResponse
request = postJSON codeDeploy
response
= receiveJSON
(\ s h x ->
GetOnPremisesInstanceResponse' <$>
(x .?> "instanceInfo") <*> (pure (fromEnum s)))
instance Hashable GetOnPremisesInstance where
instance NFData GetOnPremisesInstance where
instance ToHeaders GetOnPremisesInstance where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeDeploy_20141006.GetOnPremisesInstance" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetOnPremisesInstance where
toJSON GetOnPremisesInstance'{..}
= object
(catMaybes
[Just ("instanceName" .= _gopiInstanceName)])
instance ToPath GetOnPremisesInstance where
toPath = const "/"
instance ToQuery GetOnPremisesInstance where
toQuery = const mempty
data GetOnPremisesInstanceResponse = GetOnPremisesInstanceResponse'
{ _gopirsInstanceInfo :: !(Maybe InstanceInfo)
, _gopirsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getOnPremisesInstanceResponse
:: Int
-> GetOnPremisesInstanceResponse
getOnPremisesInstanceResponse pResponseStatus_ =
GetOnPremisesInstanceResponse'
{_gopirsInstanceInfo = Nothing, _gopirsResponseStatus = pResponseStatus_}
gopirsInstanceInfo :: Lens' GetOnPremisesInstanceResponse (Maybe InstanceInfo)
gopirsInstanceInfo = lens _gopirsInstanceInfo (\ s a -> s{_gopirsInstanceInfo = a});
gopirsResponseStatus :: Lens' GetOnPremisesInstanceResponse Int
gopirsResponseStatus = lens _gopirsResponseStatus (\ s a -> s{_gopirsResponseStatus = a});
instance NFData GetOnPremisesInstanceResponse where