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