{-# 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.SSM.DeregisterPatchBaselineForPatchGroup
(
deregisterPatchBaselineForPatchGroup
, DeregisterPatchBaselineForPatchGroup
, dpbfpgBaselineId
, dpbfpgPatchGroup
, deregisterPatchBaselineForPatchGroupResponse
, DeregisterPatchBaselineForPatchGroupResponse
, dpbfpgrsBaselineId
, dpbfpgrsPatchGroup
, dpbfpgrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SSM.Types
import Network.AWS.SSM.Types.Product
data DeregisterPatchBaselineForPatchGroup = DeregisterPatchBaselineForPatchGroup'
{ _dpbfpgBaselineId :: !Text
, _dpbfpgPatchGroup :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deregisterPatchBaselineForPatchGroup
:: Text
-> Text
-> DeregisterPatchBaselineForPatchGroup
deregisterPatchBaselineForPatchGroup pBaselineId_ pPatchGroup_ =
DeregisterPatchBaselineForPatchGroup'
{_dpbfpgBaselineId = pBaselineId_, _dpbfpgPatchGroup = pPatchGroup_}
dpbfpgBaselineId :: Lens' DeregisterPatchBaselineForPatchGroup Text
dpbfpgBaselineId = lens _dpbfpgBaselineId (\ s a -> s{_dpbfpgBaselineId = a})
dpbfpgPatchGroup :: Lens' DeregisterPatchBaselineForPatchGroup Text
dpbfpgPatchGroup = lens _dpbfpgPatchGroup (\ s a -> s{_dpbfpgPatchGroup = a})
instance AWSRequest
DeregisterPatchBaselineForPatchGroup
where
type Rs DeregisterPatchBaselineForPatchGroup =
DeregisterPatchBaselineForPatchGroupResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
DeregisterPatchBaselineForPatchGroupResponse' <$>
(x .?> "BaselineId") <*> (x .?> "PatchGroup") <*>
(pure (fromEnum s)))
instance Hashable
DeregisterPatchBaselineForPatchGroup
where
instance NFData DeregisterPatchBaselineForPatchGroup
where
instance ToHeaders
DeregisterPatchBaselineForPatchGroup
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.DeregisterPatchBaselineForPatchGroup" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeregisterPatchBaselineForPatchGroup
where
toJSON DeregisterPatchBaselineForPatchGroup'{..}
= object
(catMaybes
[Just ("BaselineId" .= _dpbfpgBaselineId),
Just ("PatchGroup" .= _dpbfpgPatchGroup)])
instance ToPath DeregisterPatchBaselineForPatchGroup
where
toPath = const "/"
instance ToQuery DeregisterPatchBaselineForPatchGroup
where
toQuery = const mempty
data DeregisterPatchBaselineForPatchGroupResponse = DeregisterPatchBaselineForPatchGroupResponse'
{ _dpbfpgrsBaselineId :: !(Maybe Text)
, _dpbfpgrsPatchGroup :: !(Maybe Text)
, _dpbfpgrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deregisterPatchBaselineForPatchGroupResponse
:: Int
-> DeregisterPatchBaselineForPatchGroupResponse
deregisterPatchBaselineForPatchGroupResponse pResponseStatus_ =
DeregisterPatchBaselineForPatchGroupResponse'
{ _dpbfpgrsBaselineId = Nothing
, _dpbfpgrsPatchGroup = Nothing
, _dpbfpgrsResponseStatus = pResponseStatus_
}
dpbfpgrsBaselineId :: Lens' DeregisterPatchBaselineForPatchGroupResponse (Maybe Text)
dpbfpgrsBaselineId = lens _dpbfpgrsBaselineId (\ s a -> s{_dpbfpgrsBaselineId = a})
dpbfpgrsPatchGroup :: Lens' DeregisterPatchBaselineForPatchGroupResponse (Maybe Text)
dpbfpgrsPatchGroup = lens _dpbfpgrsPatchGroup (\ s a -> s{_dpbfpgrsPatchGroup = a})
dpbfpgrsResponseStatus :: Lens' DeregisterPatchBaselineForPatchGroupResponse Int
dpbfpgrsResponseStatus = lens _dpbfpgrsResponseStatus (\ s a -> s{_dpbfpgrsResponseStatus = a})
instance NFData
DeregisterPatchBaselineForPatchGroupResponse
where