{-# 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.RebuildWorkspaces
(
rebuildWorkspaces
, RebuildWorkspaces
, rwRebuildWorkspaceRequests
, rebuildWorkspacesResponse
, RebuildWorkspacesResponse
, rwrsFailedRequests
, rwrsResponseStatus
) 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
newtype RebuildWorkspaces = RebuildWorkspaces'
{ _rwRebuildWorkspaceRequests :: List1 RebuildRequest
} deriving (Eq, Read, Show, Data, Typeable, Generic)
rebuildWorkspaces
:: NonEmpty RebuildRequest
-> RebuildWorkspaces
rebuildWorkspaces pRebuildWorkspaceRequests_ =
RebuildWorkspaces'
{_rwRebuildWorkspaceRequests = _List1 # pRebuildWorkspaceRequests_}
rwRebuildWorkspaceRequests :: Lens' RebuildWorkspaces (NonEmpty RebuildRequest)
rwRebuildWorkspaceRequests = lens _rwRebuildWorkspaceRequests (\ s a -> s{_rwRebuildWorkspaceRequests = a}) . _List1
instance AWSRequest RebuildWorkspaces where
type Rs RebuildWorkspaces = RebuildWorkspacesResponse
request = postJSON workSpaces
response
= receiveJSON
(\ s h x ->
RebuildWorkspacesResponse' <$>
(x .?> "FailedRequests" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable RebuildWorkspaces where
instance NFData RebuildWorkspaces where
instance ToHeaders RebuildWorkspaces where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("WorkspacesService.RebuildWorkspaces" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON RebuildWorkspaces where
toJSON RebuildWorkspaces'{..}
= object
(catMaybes
[Just
("RebuildWorkspaceRequests" .=
_rwRebuildWorkspaceRequests)])
instance ToPath RebuildWorkspaces where
toPath = const "/"
instance ToQuery RebuildWorkspaces where
toQuery = const mempty
data RebuildWorkspacesResponse = RebuildWorkspacesResponse'
{ _rwrsFailedRequests :: !(Maybe [FailedWorkspaceChangeRequest])
, _rwrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
rebuildWorkspacesResponse
:: Int
-> RebuildWorkspacesResponse
rebuildWorkspacesResponse pResponseStatus_ =
RebuildWorkspacesResponse'
{_rwrsFailedRequests = Nothing, _rwrsResponseStatus = pResponseStatus_}
rwrsFailedRequests :: Lens' RebuildWorkspacesResponse [FailedWorkspaceChangeRequest]
rwrsFailedRequests = lens _rwrsFailedRequests (\ s a -> s{_rwrsFailedRequests = a}) . _Default . _Coerce
rwrsResponseStatus :: Lens' RebuildWorkspacesResponse Int
rwrsResponseStatus = lens _rwrsResponseStatus (\ s a -> s{_rwrsResponseStatus = a})
instance NFData RebuildWorkspacesResponse where