{-# 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.DescribeInstances
(
describeInstances
, DescribeInstances
, diInstanceIds
, diStackId
, diLayerId
, describeInstancesResponse
, DescribeInstancesResponse
, dirsInstances
, dirsResponseStatus
) 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 DescribeInstances = DescribeInstances'
{ _diInstanceIds :: !(Maybe [Text])
, _diStackId :: !(Maybe Text)
, _diLayerId :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeInstances
:: DescribeInstances
describeInstances =
DescribeInstances'
{ _diInstanceIds = Nothing
, _diStackId = Nothing
, _diLayerId = Nothing
}
diInstanceIds :: Lens' DescribeInstances [Text]
diInstanceIds = lens _diInstanceIds (\ s a -> s{_diInstanceIds = a}) . _Default . _Coerce;
diStackId :: Lens' DescribeInstances (Maybe Text)
diStackId = lens _diStackId (\ s a -> s{_diStackId = a});
diLayerId :: Lens' DescribeInstances (Maybe Text)
diLayerId = lens _diLayerId (\ s a -> s{_diLayerId = a});
instance AWSRequest DescribeInstances where
type Rs DescribeInstances = DescribeInstancesResponse
request = postJSON opsWorks
response
= receiveJSON
(\ s h x ->
DescribeInstancesResponse' <$>
(x .?> "Instances" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable DescribeInstances
instance NFData DescribeInstances
instance ToHeaders DescribeInstances where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorks_20130218.DescribeInstances" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeInstances where
toJSON DescribeInstances'{..}
= object
(catMaybes
[("InstanceIds" .=) <$> _diInstanceIds,
("StackId" .=) <$> _diStackId,
("LayerId" .=) <$> _diLayerId])
instance ToPath DescribeInstances where
toPath = const "/"
instance ToQuery DescribeInstances where
toQuery = const mempty
data DescribeInstancesResponse = DescribeInstancesResponse'
{ _dirsInstances :: !(Maybe [Instance])
, _dirsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeInstancesResponse
:: Int
-> DescribeInstancesResponse
describeInstancesResponse pResponseStatus_ =
DescribeInstancesResponse'
{ _dirsInstances = Nothing
, _dirsResponseStatus = pResponseStatus_
}
dirsInstances :: Lens' DescribeInstancesResponse [Instance]
dirsInstances = lens _dirsInstances (\ s a -> s{_dirsInstances = a}) . _Default . _Coerce;
dirsResponseStatus :: Lens' DescribeInstancesResponse Int
dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a});
instance NFData DescribeInstancesResponse