module Network.AWS.OpsWorks.DescribeRAIdArrays
(
describeRAIdArrays
, DescribeRAIdArrays
, draiaInstanceId
, draiaRAIdArrayIds
, draiaStackId
, describeRAIdArraysResponse
, DescribeRAIdArraysResponse
, draiarsRAIdArrays
, draiarsResponseStatus
) where
import Network.AWS.OpsWorks.Types
import Network.AWS.OpsWorks.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeRAIdArrays = DescribeRAIdArrays'
{ _draiaInstanceId :: !(Maybe Text)
, _draiaRAIdArrayIds :: !(Maybe [Text])
, _draiaStackId :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeRAIdArrays
:: DescribeRAIdArrays
describeRAIdArrays =
DescribeRAIdArrays'
{ _draiaInstanceId = Nothing
, _draiaRAIdArrayIds = Nothing
, _draiaStackId = Nothing
}
draiaInstanceId :: Lens' DescribeRAIdArrays (Maybe Text)
draiaInstanceId = lens _draiaInstanceId (\ s a -> s{_draiaInstanceId = a});
draiaRAIdArrayIds :: Lens' DescribeRAIdArrays [Text]
draiaRAIdArrayIds = lens _draiaRAIdArrayIds (\ s a -> s{_draiaRAIdArrayIds = a}) . _Default . _Coerce;
draiaStackId :: Lens' DescribeRAIdArrays (Maybe Text)
draiaStackId = lens _draiaStackId (\ s a -> s{_draiaStackId = a});
instance AWSRequest DescribeRAIdArrays where
type Rs DescribeRAIdArrays =
DescribeRAIdArraysResponse
request = postJSON opsWorks
response
= receiveJSON
(\ s h x ->
DescribeRAIdArraysResponse' <$>
(x .?> "RaidArrays" .!@ mempty) <*>
(pure (fromEnum s)))
instance ToHeaders DescribeRAIdArrays where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorks_20130218.DescribeRaidArrays" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeRAIdArrays where
toJSON DescribeRAIdArrays'{..}
= object
(catMaybes
[("InstanceId" .=) <$> _draiaInstanceId,
("RaidArrayIds" .=) <$> _draiaRAIdArrayIds,
("StackId" .=) <$> _draiaStackId])
instance ToPath DescribeRAIdArrays where
toPath = const "/"
instance ToQuery DescribeRAIdArrays where
toQuery = const mempty
data DescribeRAIdArraysResponse = DescribeRAIdArraysResponse'
{ _draiarsRAIdArrays :: !(Maybe [RAIdArray])
, _draiarsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeRAIdArraysResponse
:: Int
-> DescribeRAIdArraysResponse
describeRAIdArraysResponse pResponseStatus_ =
DescribeRAIdArraysResponse'
{ _draiarsRAIdArrays = Nothing
, _draiarsResponseStatus = pResponseStatus_
}
draiarsRAIdArrays :: Lens' DescribeRAIdArraysResponse [RAIdArray]
draiarsRAIdArrays = lens _draiarsRAIdArrays (\ s a -> s{_draiarsRAIdArrays = a}) . _Default . _Coerce;
draiarsResponseStatus :: Lens' DescribeRAIdArraysResponse Int
draiarsResponseStatus = lens _draiarsResponseStatus (\ s a -> s{_draiarsResponseStatus = a});