{-# 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.StopImageBuilder
(
stopImageBuilder
, StopImageBuilder
, stoName
, stopImageBuilderResponse
, StopImageBuilderResponse
, sibrsImageBuilder
, sibrsResponseStatus
) 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 StopImageBuilder = StopImageBuilder'
{ _stoName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
stopImageBuilder
:: Text
-> StopImageBuilder
stopImageBuilder pName_ = StopImageBuilder' {_stoName = pName_}
stoName :: Lens' StopImageBuilder Text
stoName = lens _stoName (\ s a -> s{_stoName = a})
instance AWSRequest StopImageBuilder where
type Rs StopImageBuilder = StopImageBuilderResponse
request = postJSON appStream
response
= receiveJSON
(\ s h x ->
StopImageBuilderResponse' <$>
(x .?> "ImageBuilder") <*> (pure (fromEnum s)))
instance Hashable StopImageBuilder where
instance NFData StopImageBuilder where
instance ToHeaders StopImageBuilder where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("PhotonAdminProxyService.StopImageBuilder" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON StopImageBuilder where
toJSON StopImageBuilder'{..}
= object (catMaybes [Just ("Name" .= _stoName)])
instance ToPath StopImageBuilder where
toPath = const "/"
instance ToQuery StopImageBuilder where
toQuery = const mempty
data StopImageBuilderResponse = StopImageBuilderResponse'
{ _sibrsImageBuilder :: !(Maybe ImageBuilder)
, _sibrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
stopImageBuilderResponse
:: Int
-> StopImageBuilderResponse
stopImageBuilderResponse pResponseStatus_ =
StopImageBuilderResponse'
{_sibrsImageBuilder = Nothing, _sibrsResponseStatus = pResponseStatus_}
sibrsImageBuilder :: Lens' StopImageBuilderResponse (Maybe ImageBuilder)
sibrsImageBuilder = lens _sibrsImageBuilder (\ s a -> s{_sibrsImageBuilder = a})
sibrsResponseStatus :: Lens' StopImageBuilderResponse Int
sibrsResponseStatus = lens _sibrsResponseStatus (\ s a -> s{_sibrsResponseStatus = a})
instance NFData StopImageBuilderResponse where