module Network.AWS.OpsWorks.DescribeCommands
(
describeCommands
, DescribeCommands
, dcDeploymentId
, dcInstanceId
, dcCommandIds
, describeCommandsResponse
, DescribeCommandsResponse
, dcrsCommands
, dcrsResponseStatus
) 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 DescribeCommands = DescribeCommands'
{ _dcDeploymentId :: !(Maybe Text)
, _dcInstanceId :: !(Maybe Text)
, _dcCommandIds :: !(Maybe [Text])
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeCommands
:: DescribeCommands
describeCommands =
DescribeCommands'
{ _dcDeploymentId = Nothing
, _dcInstanceId = Nothing
, _dcCommandIds = Nothing
}
dcDeploymentId :: Lens' DescribeCommands (Maybe Text)
dcDeploymentId = lens _dcDeploymentId (\ s a -> s{_dcDeploymentId = a});
dcInstanceId :: Lens' DescribeCommands (Maybe Text)
dcInstanceId = lens _dcInstanceId (\ s a -> s{_dcInstanceId = a});
dcCommandIds :: Lens' DescribeCommands [Text]
dcCommandIds = lens _dcCommandIds (\ s a -> s{_dcCommandIds = a}) . _Default . _Coerce;
instance AWSRequest DescribeCommands where
type Rs DescribeCommands = DescribeCommandsResponse
request = postJSON opsWorks
response
= receiveJSON
(\ s h x ->
DescribeCommandsResponse' <$>
(x .?> "Commands" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable DescribeCommands
instance NFData DescribeCommands
instance ToHeaders DescribeCommands where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorks_20130218.DescribeCommands" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeCommands where
toJSON DescribeCommands'{..}
= object
(catMaybes
[("DeploymentId" .=) <$> _dcDeploymentId,
("InstanceId" .=) <$> _dcInstanceId,
("CommandIds" .=) <$> _dcCommandIds])
instance ToPath DescribeCommands where
toPath = const "/"
instance ToQuery DescribeCommands where
toQuery = const mempty
data DescribeCommandsResponse = DescribeCommandsResponse'
{ _dcrsCommands :: !(Maybe [Command])
, _dcrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeCommandsResponse
:: Int
-> DescribeCommandsResponse
describeCommandsResponse pResponseStatus_ =
DescribeCommandsResponse'
{ _dcrsCommands = Nothing
, _dcrsResponseStatus = pResponseStatus_
}
dcrsCommands :: Lens' DescribeCommandsResponse [Command]
dcrsCommands = lens _dcrsCommands (\ s a -> s{_dcrsCommands = a}) . _Default . _Coerce;
dcrsResponseStatus :: Lens' DescribeCommandsResponse Int
dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});
instance NFData DescribeCommandsResponse