{-# 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.ModifyWorkspaceState
(
modifyWorkspaceState
, ModifyWorkspaceState
, mwsWorkspaceId
, mwsWorkspaceState
, modifyWorkspaceStateResponse
, ModifyWorkspaceStateResponse
, mwsrsResponseStatus
) 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 ModifyWorkspaceState = ModifyWorkspaceState'
{ _mwsWorkspaceId :: !Text
, _mwsWorkspaceState :: !TargetWorkspaceState
} deriving (Eq, Read, Show, Data, Typeable, Generic)
modifyWorkspaceState
:: Text
-> TargetWorkspaceState
-> ModifyWorkspaceState
modifyWorkspaceState pWorkspaceId_ pWorkspaceState_ =
ModifyWorkspaceState'
{_mwsWorkspaceId = pWorkspaceId_, _mwsWorkspaceState = pWorkspaceState_}
mwsWorkspaceId :: Lens' ModifyWorkspaceState Text
mwsWorkspaceId = lens _mwsWorkspaceId (\ s a -> s{_mwsWorkspaceId = a})
mwsWorkspaceState :: Lens' ModifyWorkspaceState TargetWorkspaceState
mwsWorkspaceState = lens _mwsWorkspaceState (\ s a -> s{_mwsWorkspaceState = a})
instance AWSRequest ModifyWorkspaceState where
type Rs ModifyWorkspaceState =
ModifyWorkspaceStateResponse
request = postJSON workSpaces
response
= receiveEmpty
(\ s h x ->
ModifyWorkspaceStateResponse' <$>
(pure (fromEnum s)))
instance Hashable ModifyWorkspaceState where
instance NFData ModifyWorkspaceState where
instance ToHeaders ModifyWorkspaceState where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("WorkspacesService.ModifyWorkspaceState" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ModifyWorkspaceState where
toJSON ModifyWorkspaceState'{..}
= object
(catMaybes
[Just ("WorkspaceId" .= _mwsWorkspaceId),
Just ("WorkspaceState" .= _mwsWorkspaceState)])
instance ToPath ModifyWorkspaceState where
toPath = const "/"
instance ToQuery ModifyWorkspaceState where
toQuery = const mempty
newtype ModifyWorkspaceStateResponse = ModifyWorkspaceStateResponse'
{ _mwsrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
modifyWorkspaceStateResponse
:: Int
-> ModifyWorkspaceStateResponse
modifyWorkspaceStateResponse pResponseStatus_ =
ModifyWorkspaceStateResponse' {_mwsrsResponseStatus = pResponseStatus_}
mwsrsResponseStatus :: Lens' ModifyWorkspaceStateResponse Int
mwsrsResponseStatus = lens _mwsrsResponseStatus (\ s a -> s{_mwsrsResponseStatus = a})
instance NFData ModifyWorkspaceStateResponse where