{-# 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.AppStream.DescribeImages
(
describeImages
, DescribeImages
, diNames
, describeImagesResponse
, DescribeImagesResponse
, disrsImages
, disrsResponseStatus
) where
import Network.AWS.AppStream.Types
import Network.AWS.AppStream.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DescribeImages = DescribeImages'
{ _diNames :: Maybe [Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeImages
:: DescribeImages
describeImages = DescribeImages' {_diNames = Nothing}
diNames :: Lens' DescribeImages [Text]
diNames = lens _diNames (\ s a -> s{_diNames = a}) . _Default . _Coerce
instance AWSRequest DescribeImages where
type Rs DescribeImages = DescribeImagesResponse
request = postJSON appStream
response
= receiveJSON
(\ s h x ->
DescribeImagesResponse' <$>
(x .?> "Images" .!@ mempty) <*> (pure (fromEnum s)))
instance Hashable DescribeImages where
instance NFData DescribeImages where
instance ToHeaders DescribeImages where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("PhotonAdminProxyService.DescribeImages" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeImages where
toJSON DescribeImages'{..}
= object (catMaybes [("Names" .=) <$> _diNames])
instance ToPath DescribeImages where
toPath = const "/"
instance ToQuery DescribeImages where
toQuery = const mempty
data DescribeImagesResponse = DescribeImagesResponse'
{ _disrsImages :: !(Maybe [Image])
, _disrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeImagesResponse
:: Int
-> DescribeImagesResponse
describeImagesResponse pResponseStatus_ =
DescribeImagesResponse'
{_disrsImages = Nothing, _disrsResponseStatus = pResponseStatus_}
disrsImages :: Lens' DescribeImagesResponse [Image]
disrsImages = lens _disrsImages (\ s a -> s{_disrsImages = a}) . _Default . _Coerce
disrsResponseStatus :: Lens' DescribeImagesResponse Int
disrsResponseStatus = lens _disrsResponseStatus (\ s a -> s{_disrsResponseStatus = a})
instance NFData DescribeImagesResponse where