module Network.AWS.WorkSpaces.RebootWorkspaces
(
RebootWorkspaces
, rebootWorkspaces
, rwRebootWorkspaceRequests
, RebootWorkspacesResponse
, rebootWorkspacesResponse
, rwr1FailedRequests
) where
import Network.AWS.Data (Object)
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.WorkSpaces.Types
import qualified GHC.Exts
newtype RebootWorkspaces = RebootWorkspaces
{ _rwRebootWorkspaceRequests :: List1 "RebootWorkspaceRequests" RebootRequest
} deriving (Eq, Read, Show, Semigroup)
rebootWorkspaces :: NonEmpty RebootRequest
-> RebootWorkspaces
rebootWorkspaces p1 = RebootWorkspaces
{ _rwRebootWorkspaceRequests = withIso _List1 (const id) p1
}
rwRebootWorkspaceRequests :: Lens' RebootWorkspaces (NonEmpty RebootRequest)
rwRebootWorkspaceRequests =
lens _rwRebootWorkspaceRequests
(\s a -> s { _rwRebootWorkspaceRequests = a })
. _List1
newtype RebootWorkspacesResponse = RebootWorkspacesResponse
{ _rwr1FailedRequests :: List "FailedRequests" FailedWorkspaceChangeRequest
} deriving (Eq, Read, Show, Monoid, Semigroup)
instance GHC.Exts.IsList RebootWorkspacesResponse where
type Item RebootWorkspacesResponse = FailedWorkspaceChangeRequest
fromList = RebootWorkspacesResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _rwr1FailedRequests
rebootWorkspacesResponse :: RebootWorkspacesResponse
rebootWorkspacesResponse = RebootWorkspacesResponse
{ _rwr1FailedRequests = mempty
}
rwr1FailedRequests :: Lens' RebootWorkspacesResponse [FailedWorkspaceChangeRequest]
rwr1FailedRequests =
lens _rwr1FailedRequests (\s a -> s { _rwr1FailedRequests = a })
. _List
instance ToPath RebootWorkspaces where
toPath = const "/"
instance ToQuery RebootWorkspaces where
toQuery = const mempty
instance ToHeaders RebootWorkspaces
instance ToJSON RebootWorkspaces where
toJSON RebootWorkspaces{..} = object
[ "RebootWorkspaceRequests" .= _rwRebootWorkspaceRequests
]
instance AWSRequest RebootWorkspaces where
type Sv RebootWorkspaces = WorkSpaces
type Rs RebootWorkspaces = RebootWorkspacesResponse
request = post "RebootWorkspaces"
response = jsonResponse
instance FromJSON RebootWorkspacesResponse where
parseJSON = withObject "RebootWorkspacesResponse" $ \o -> RebootWorkspacesResponse
<$> o .:? "FailedRequests" .!= mempty