{-# 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
, dirsImages
, dirsResponseStatus
) 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
instance NFData DescribeImages
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'
{ _dirsImages :: !(Maybe [Image])
, _dirsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeImagesResponse
:: Int
-> DescribeImagesResponse
describeImagesResponse pResponseStatus_ =
DescribeImagesResponse'
{ _dirsImages = Nothing
, _dirsResponseStatus = pResponseStatus_
}
dirsImages :: Lens' DescribeImagesResponse [Image]
dirsImages = lens _dirsImages (\ s a -> s{_dirsImages = a}) . _Default . _Coerce;
dirsResponseStatus :: Lens' DescribeImagesResponse Int
dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a});
instance NFData DescribeImagesResponse