{-# 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.CodeBuild.ListCuratedEnvironmentImages
(
listCuratedEnvironmentImages
, ListCuratedEnvironmentImages
, listCuratedEnvironmentImagesResponse
, ListCuratedEnvironmentImagesResponse
, lceirsPlatforms
, lceirsResponseStatus
) where
import Network.AWS.CodeBuild.Types
import Network.AWS.CodeBuild.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListCuratedEnvironmentImages =
ListCuratedEnvironmentImages'
deriving (Eq, Read, Show, Data, Typeable, Generic)
listCuratedEnvironmentImages
:: ListCuratedEnvironmentImages
listCuratedEnvironmentImages = ListCuratedEnvironmentImages'
instance AWSRequest ListCuratedEnvironmentImages
where
type Rs ListCuratedEnvironmentImages =
ListCuratedEnvironmentImagesResponse
request = postJSON codeBuild
response
= receiveJSON
(\ s h x ->
ListCuratedEnvironmentImagesResponse' <$>
(x .?> "platforms" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable ListCuratedEnvironmentImages where
instance NFData ListCuratedEnvironmentImages where
instance ToHeaders ListCuratedEnvironmentImages where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeBuild_20161006.ListCuratedEnvironmentImages" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListCuratedEnvironmentImages where
toJSON = const (Object mempty)
instance ToPath ListCuratedEnvironmentImages where
toPath = const "/"
instance ToQuery ListCuratedEnvironmentImages where
toQuery = const mempty
data ListCuratedEnvironmentImagesResponse = ListCuratedEnvironmentImagesResponse'
{ _lceirsPlatforms :: !(Maybe [EnvironmentPlatform])
, _lceirsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listCuratedEnvironmentImagesResponse
:: Int
-> ListCuratedEnvironmentImagesResponse
listCuratedEnvironmentImagesResponse pResponseStatus_ =
ListCuratedEnvironmentImagesResponse'
{_lceirsPlatforms = Nothing, _lceirsResponseStatus = pResponseStatus_}
lceirsPlatforms :: Lens' ListCuratedEnvironmentImagesResponse [EnvironmentPlatform]
lceirsPlatforms = lens _lceirsPlatforms (\ s a -> s{_lceirsPlatforms = a}) . _Default . _Coerce
lceirsResponseStatus :: Lens' ListCuratedEnvironmentImagesResponse Int
lceirsResponseStatus = lens _lceirsResponseStatus (\ s a -> s{_lceirsResponseStatus = a})
instance NFData ListCuratedEnvironmentImagesResponse
where