{-# 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.RegisterPatchBaselineForPatchGroup
(
registerPatchBaselineForPatchGroup
, RegisterPatchBaselineForPatchGroup
, rpbfpgBaselineId
, rpbfpgPatchGroup
, registerPatchBaselineForPatchGroupResponse
, RegisterPatchBaselineForPatchGroupResponse
, rpbfpgrsBaselineId
, rpbfpgrsPatchGroup
, rpbfpgrsResponseStatus
) 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 RegisterPatchBaselineForPatchGroup = RegisterPatchBaselineForPatchGroup'
{ _rpbfpgBaselineId :: !Text
, _rpbfpgPatchGroup :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
registerPatchBaselineForPatchGroup
:: Text
-> Text
-> RegisterPatchBaselineForPatchGroup
registerPatchBaselineForPatchGroup pBaselineId_ pPatchGroup_ =
RegisterPatchBaselineForPatchGroup'
{_rpbfpgBaselineId = pBaselineId_, _rpbfpgPatchGroup = pPatchGroup_}
rpbfpgBaselineId :: Lens' RegisterPatchBaselineForPatchGroup Text
rpbfpgBaselineId = lens _rpbfpgBaselineId (\ s a -> s{_rpbfpgBaselineId = a})
rpbfpgPatchGroup :: Lens' RegisterPatchBaselineForPatchGroup Text
rpbfpgPatchGroup = lens _rpbfpgPatchGroup (\ s a -> s{_rpbfpgPatchGroup = a})
instance AWSRequest
RegisterPatchBaselineForPatchGroup
where
type Rs RegisterPatchBaselineForPatchGroup =
RegisterPatchBaselineForPatchGroupResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
RegisterPatchBaselineForPatchGroupResponse' <$>
(x .?> "BaselineId") <*> (x .?> "PatchGroup") <*>
(pure (fromEnum s)))
instance Hashable RegisterPatchBaselineForPatchGroup
where
instance NFData RegisterPatchBaselineForPatchGroup
where
instance ToHeaders RegisterPatchBaselineForPatchGroup
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.RegisterPatchBaselineForPatchGroup" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON RegisterPatchBaselineForPatchGroup
where
toJSON RegisterPatchBaselineForPatchGroup'{..}
= object
(catMaybes
[Just ("BaselineId" .= _rpbfpgBaselineId),
Just ("PatchGroup" .= _rpbfpgPatchGroup)])
instance ToPath RegisterPatchBaselineForPatchGroup
where
toPath = const "/"
instance ToQuery RegisterPatchBaselineForPatchGroup
where
toQuery = const mempty
data RegisterPatchBaselineForPatchGroupResponse = RegisterPatchBaselineForPatchGroupResponse'
{ _rpbfpgrsBaselineId :: !(Maybe Text)
, _rpbfpgrsPatchGroup :: !(Maybe Text)
, _rpbfpgrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
registerPatchBaselineForPatchGroupResponse
:: Int
-> RegisterPatchBaselineForPatchGroupResponse
registerPatchBaselineForPatchGroupResponse pResponseStatus_ =
RegisterPatchBaselineForPatchGroupResponse'
{ _rpbfpgrsBaselineId = Nothing
, _rpbfpgrsPatchGroup = Nothing
, _rpbfpgrsResponseStatus = pResponseStatus_
}
rpbfpgrsBaselineId :: Lens' RegisterPatchBaselineForPatchGroupResponse (Maybe Text)
rpbfpgrsBaselineId = lens _rpbfpgrsBaselineId (\ s a -> s{_rpbfpgrsBaselineId = a})
rpbfpgrsPatchGroup :: Lens' RegisterPatchBaselineForPatchGroupResponse (Maybe Text)
rpbfpgrsPatchGroup = lens _rpbfpgrsPatchGroup (\ s a -> s{_rpbfpgrsPatchGroup = a})
rpbfpgrsResponseStatus :: Lens' RegisterPatchBaselineForPatchGroupResponse Int
rpbfpgrsResponseStatus = lens _rpbfpgrsResponseStatus (\ s a -> s{_rpbfpgrsResponseStatus = a})
instance NFData
RegisterPatchBaselineForPatchGroupResponse
where