{-# 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.DescribeImageBuilders
(
describeImageBuilders
, DescribeImageBuilders
, dibNextToken
, dibNames
, dibMaxResults
, describeImageBuildersResponse
, DescribeImageBuildersResponse
, dibsrsImageBuilders
, dibsrsNextToken
, dibsrsResponseStatus
) 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
data DescribeImageBuilders = DescribeImageBuilders'
{ _dibNextToken :: !(Maybe Text)
, _dibNames :: !(Maybe [Text])
, _dibMaxResults :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeImageBuilders
:: DescribeImageBuilders
describeImageBuilders =
DescribeImageBuilders'
{_dibNextToken = Nothing, _dibNames = Nothing, _dibMaxResults = Nothing}
dibNextToken :: Lens' DescribeImageBuilders (Maybe Text)
dibNextToken = lens _dibNextToken (\ s a -> s{_dibNextToken = a})
dibNames :: Lens' DescribeImageBuilders [Text]
dibNames = lens _dibNames (\ s a -> s{_dibNames = a}) . _Default . _Coerce
dibMaxResults :: Lens' DescribeImageBuilders (Maybe Int)
dibMaxResults = lens _dibMaxResults (\ s a -> s{_dibMaxResults = a})
instance AWSRequest DescribeImageBuilders where
type Rs DescribeImageBuilders =
DescribeImageBuildersResponse
request = postJSON appStream
response
= receiveJSON
(\ s h x ->
DescribeImageBuildersResponse' <$>
(x .?> "ImageBuilders" .!@ mempty) <*>
(x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable DescribeImageBuilders where
instance NFData DescribeImageBuilders where
instance ToHeaders DescribeImageBuilders where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("PhotonAdminProxyService.DescribeImageBuilders" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeImageBuilders where
toJSON DescribeImageBuilders'{..}
= object
(catMaybes
[("NextToken" .=) <$> _dibNextToken,
("Names" .=) <$> _dibNames,
("MaxResults" .=) <$> _dibMaxResults])
instance ToPath DescribeImageBuilders where
toPath = const "/"
instance ToQuery DescribeImageBuilders where
toQuery = const mempty
data DescribeImageBuildersResponse = DescribeImageBuildersResponse'
{ _dibsrsImageBuilders :: !(Maybe [ImageBuilder])
, _dibsrsNextToken :: !(Maybe Text)
, _dibsrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeImageBuildersResponse
:: Int
-> DescribeImageBuildersResponse
describeImageBuildersResponse pResponseStatus_ =
DescribeImageBuildersResponse'
{ _dibsrsImageBuilders = Nothing
, _dibsrsNextToken = Nothing
, _dibsrsResponseStatus = pResponseStatus_
}
dibsrsImageBuilders :: Lens' DescribeImageBuildersResponse [ImageBuilder]
dibsrsImageBuilders = lens _dibsrsImageBuilders (\ s a -> s{_dibsrsImageBuilders = a}) . _Default . _Coerce
dibsrsNextToken :: Lens' DescribeImageBuildersResponse (Maybe Text)
dibsrsNextToken = lens _dibsrsNextToken (\ s a -> s{_dibsrsNextToken = a})
dibsrsResponseStatus :: Lens' DescribeImageBuildersResponse Int
dibsrsResponseStatus = lens _dibsrsResponseStatus (\ s a -> s{_dibsrsResponseStatus = a})
instance NFData DescribeImageBuildersResponse where