module Network.AWS.OpsWorks.DescribeInstances
(
DescribeInstances
, describeInstances
, diInstanceIds
, diLayerId
, diStackId
, DescribeInstancesResponse
, describeInstancesResponse
, dirInstances
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.OpsWorks.Types
import qualified GHC.Exts
data DescribeInstances = DescribeInstances
{ _diInstanceIds :: List "InstanceIds" Text
, _diLayerId :: Maybe Text
, _diStackId :: Maybe Text
} deriving (Eq, Ord, Show)
describeInstances :: DescribeInstances
describeInstances = DescribeInstances
{ _diStackId = Nothing
, _diLayerId = Nothing
, _diInstanceIds = mempty
}
diInstanceIds :: Lens' DescribeInstances [Text]
diInstanceIds = lens _diInstanceIds (\s a -> s { _diInstanceIds = a }) . _List
diLayerId :: Lens' DescribeInstances (Maybe Text)
diLayerId = lens _diLayerId (\s a -> s { _diLayerId = a })
diStackId :: Lens' DescribeInstances (Maybe Text)
diStackId = lens _diStackId (\s a -> s { _diStackId = a })
newtype DescribeInstancesResponse = DescribeInstancesResponse
{ _dirInstances :: List "Instances" Instance
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeInstancesResponse where
type Item DescribeInstancesResponse = Instance
fromList = DescribeInstancesResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _dirInstances
describeInstancesResponse :: DescribeInstancesResponse
describeInstancesResponse = DescribeInstancesResponse
{ _dirInstances = mempty
}
dirInstances :: Lens' DescribeInstancesResponse [Instance]
dirInstances = lens _dirInstances (\s a -> s { _dirInstances = a }) . _List
instance ToPath DescribeInstances where
toPath = const "/"
instance ToQuery DescribeInstances where
toQuery = const mempty
instance ToHeaders DescribeInstances
instance ToJSON DescribeInstances where
toJSON DescribeInstances{..} = object
[ "StackId" .= _diStackId
, "LayerId" .= _diLayerId
, "InstanceIds" .= _diInstanceIds
]
instance AWSRequest DescribeInstances where
type Sv DescribeInstances = OpsWorks
type Rs DescribeInstances = DescribeInstancesResponse
request = post "DescribeInstances"
response = jsonResponse
instance FromJSON DescribeInstancesResponse where
parseJSON = withObject "DescribeInstancesResponse" $ \o -> DescribeInstancesResponse
<$> o .: "Instances"