{-# 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.DescribeStacks
(
describeStacks
, DescribeStacks
, dsStackIds
, describeStacksResponse
, DescribeStacksResponse
, dsrsStacks
, dsrsResponseStatus
) 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
newtype DescribeStacks = DescribeStacks'
{ _dsStackIds :: Maybe [Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeStacks
:: DescribeStacks
describeStacks = DescribeStacks' {_dsStackIds = Nothing}
dsStackIds :: Lens' DescribeStacks [Text]
dsStackIds = lens _dsStackIds (\ s a -> s{_dsStackIds = a}) . _Default . _Coerce
instance AWSRequest DescribeStacks where
type Rs DescribeStacks = DescribeStacksResponse
request = postJSON opsWorks
response
= receiveJSON
(\ s h x ->
DescribeStacksResponse' <$>
(x .?> "Stacks" .!@ mempty) <*> (pure (fromEnum s)))
instance Hashable DescribeStacks where
instance NFData DescribeStacks where
instance ToHeaders DescribeStacks where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorks_20130218.DescribeStacks" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeStacks where
toJSON DescribeStacks'{..}
= object
(catMaybes [("StackIds" .=) <$> _dsStackIds])
instance ToPath DescribeStacks where
toPath = const "/"
instance ToQuery DescribeStacks where
toQuery = const mempty
data DescribeStacksResponse = DescribeStacksResponse'
{ _dsrsStacks :: !(Maybe [Stack])
, _dsrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeStacksResponse
:: Int
-> DescribeStacksResponse
describeStacksResponse pResponseStatus_ =
DescribeStacksResponse'
{_dsrsStacks = Nothing, _dsrsResponseStatus = pResponseStatus_}
dsrsStacks :: Lens' DescribeStacksResponse [Stack]
dsrsStacks = lens _dsrsStacks (\ s a -> s{_dsrsStacks = a}) . _Default . _Coerce
dsrsResponseStatus :: Lens' DescribeStacksResponse Int
dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a})
instance NFData DescribeStacksResponse where