{-# 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.WorkSpaces.ModifyWorkspaceProperties
(
modifyWorkspaceProperties
, ModifyWorkspaceProperties
, mwpWorkspaceId
, mwpWorkspaceProperties
, modifyWorkspacePropertiesResponse
, ModifyWorkspacePropertiesResponse
, mwprsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.WorkSpaces.Types
import Network.AWS.WorkSpaces.Types.Product
data ModifyWorkspaceProperties = ModifyWorkspaceProperties'
{ _mwpWorkspaceId :: !Text
, _mwpWorkspaceProperties :: !WorkspaceProperties
} deriving (Eq,Read,Show,Data,Typeable,Generic)
modifyWorkspaceProperties
:: Text
-> WorkspaceProperties
-> ModifyWorkspaceProperties
modifyWorkspaceProperties pWorkspaceId_ pWorkspaceProperties_ =
ModifyWorkspaceProperties'
{ _mwpWorkspaceId = pWorkspaceId_
, _mwpWorkspaceProperties = pWorkspaceProperties_
}
mwpWorkspaceId :: Lens' ModifyWorkspaceProperties Text
mwpWorkspaceId = lens _mwpWorkspaceId (\ s a -> s{_mwpWorkspaceId = a});
mwpWorkspaceProperties :: Lens' ModifyWorkspaceProperties WorkspaceProperties
mwpWorkspaceProperties = lens _mwpWorkspaceProperties (\ s a -> s{_mwpWorkspaceProperties = a});
instance AWSRequest ModifyWorkspaceProperties where
type Rs ModifyWorkspaceProperties =
ModifyWorkspacePropertiesResponse
request = postJSON workSpaces
response
= receiveEmpty
(\ s h x ->
ModifyWorkspacePropertiesResponse' <$>
(pure (fromEnum s)))
instance Hashable ModifyWorkspaceProperties
instance NFData ModifyWorkspaceProperties
instance ToHeaders ModifyWorkspaceProperties where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("WorkspacesService.ModifyWorkspaceProperties" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ModifyWorkspaceProperties where
toJSON ModifyWorkspaceProperties'{..}
= object
(catMaybes
[Just ("WorkspaceId" .= _mwpWorkspaceId),
Just
("WorkspaceProperties" .= _mwpWorkspaceProperties)])
instance ToPath ModifyWorkspaceProperties where
toPath = const "/"
instance ToQuery ModifyWorkspaceProperties where
toQuery = const mempty
newtype ModifyWorkspacePropertiesResponse = ModifyWorkspacePropertiesResponse'
{ _mwprsResponseStatus :: Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
modifyWorkspacePropertiesResponse
:: Int
-> ModifyWorkspacePropertiesResponse
modifyWorkspacePropertiesResponse pResponseStatus_ =
ModifyWorkspacePropertiesResponse'
{ _mwprsResponseStatus = pResponseStatus_
}
mwprsResponseStatus :: Lens' ModifyWorkspacePropertiesResponse Int
mwprsResponseStatus = lens _mwprsResponseStatus (\ s a -> s{_mwprsResponseStatus = a});
instance NFData ModifyWorkspacePropertiesResponse