module Network.AWS.OpsWorks.DescribeStacks
(
DescribeStacks
, describeStacks
, dsStackIds
, DescribeStacksResponse
, describeStacksResponse
, dsrStacks
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.OpsWorks.Types
import qualified GHC.Exts
newtype DescribeStacks = DescribeStacks
{ _dsStackIds :: List "InstanceIds" Text
} deriving (Eq, Ord, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeStacks where
type Item DescribeStacks = Text
fromList = DescribeStacks . GHC.Exts.fromList
toList = GHC.Exts.toList . _dsStackIds
describeStacks :: DescribeStacks
describeStacks = DescribeStacks
{ _dsStackIds = mempty
}
dsStackIds :: Lens' DescribeStacks [Text]
dsStackIds = lens _dsStackIds (\s a -> s { _dsStackIds = a }) . _List
newtype DescribeStacksResponse = DescribeStacksResponse
{ _dsrStacks :: List "Stacks" Stack
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeStacksResponse where
type Item DescribeStacksResponse = Stack
fromList = DescribeStacksResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _dsrStacks
describeStacksResponse :: DescribeStacksResponse
describeStacksResponse = DescribeStacksResponse
{ _dsrStacks = mempty
}
dsrStacks :: Lens' DescribeStacksResponse [Stack]
dsrStacks = lens _dsrStacks (\s a -> s { _dsrStacks = a }) . _List
instance ToPath DescribeStacks where
toPath = const "/"
instance ToQuery DescribeStacks where
toQuery = const mempty
instance ToHeaders DescribeStacks
instance ToJSON DescribeStacks where
toJSON DescribeStacks{..} = object
[ "StackIds" .= _dsStackIds
]
instance AWSRequest DescribeStacks where
type Sv DescribeStacks = OpsWorks
type Rs DescribeStacks = DescribeStacksResponse
request = post "DescribeStacks"
response = jsonResponse
instance FromJSON DescribeStacksResponse where
parseJSON = withObject "DescribeStacksResponse" $ \o -> DescribeStacksResponse
<$> o .: "Stacks"