{-# 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.UpdateMaintenanceWindow
(
updateMaintenanceWindow
, UpdateMaintenanceWindow
, umwReplace
, umwEnabled
, umwSchedule
, umwName
, umwCutoff
, umwAllowUnassociatedTargets
, umwDescription
, umwDuration
, umwWindowId
, updateMaintenanceWindowResponse
, UpdateMaintenanceWindowResponse
, umwrsEnabled
, umwrsSchedule
, umwrsName
, umwrsCutoff
, umwrsAllowUnassociatedTargets
, umwrsDescription
, umwrsDuration
, umwrsWindowId
, umwrsResponseStatus
) 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 UpdateMaintenanceWindow = UpdateMaintenanceWindow'
{ _umwReplace :: !(Maybe Bool)
, _umwEnabled :: !(Maybe Bool)
, _umwSchedule :: !(Maybe Text)
, _umwName :: !(Maybe Text)
, _umwCutoff :: !(Maybe Nat)
, _umwAllowUnassociatedTargets :: !(Maybe Bool)
, _umwDescription :: !(Maybe (Sensitive Text))
, _umwDuration :: !(Maybe Nat)
, _umwWindowId :: !Text
} deriving (Eq, Show, Data, Typeable, Generic)
updateMaintenanceWindow
:: Text
-> UpdateMaintenanceWindow
updateMaintenanceWindow pWindowId_ =
UpdateMaintenanceWindow'
{ _umwReplace = Nothing
, _umwEnabled = Nothing
, _umwSchedule = Nothing
, _umwName = Nothing
, _umwCutoff = Nothing
, _umwAllowUnassociatedTargets = Nothing
, _umwDescription = Nothing
, _umwDuration = Nothing
, _umwWindowId = pWindowId_
}
umwReplace :: Lens' UpdateMaintenanceWindow (Maybe Bool)
umwReplace = lens _umwReplace (\ s a -> s{_umwReplace = a})
umwEnabled :: Lens' UpdateMaintenanceWindow (Maybe Bool)
umwEnabled = lens _umwEnabled (\ s a -> s{_umwEnabled = a})
umwSchedule :: Lens' UpdateMaintenanceWindow (Maybe Text)
umwSchedule = lens _umwSchedule (\ s a -> s{_umwSchedule = a})
umwName :: Lens' UpdateMaintenanceWindow (Maybe Text)
umwName = lens _umwName (\ s a -> s{_umwName = a})
umwCutoff :: Lens' UpdateMaintenanceWindow (Maybe Natural)
umwCutoff = lens _umwCutoff (\ s a -> s{_umwCutoff = a}) . mapping _Nat
umwAllowUnassociatedTargets :: Lens' UpdateMaintenanceWindow (Maybe Bool)
umwAllowUnassociatedTargets = lens _umwAllowUnassociatedTargets (\ s a -> s{_umwAllowUnassociatedTargets = a})
umwDescription :: Lens' UpdateMaintenanceWindow (Maybe Text)
umwDescription = lens _umwDescription (\ s a -> s{_umwDescription = a}) . mapping _Sensitive
umwDuration :: Lens' UpdateMaintenanceWindow (Maybe Natural)
umwDuration = lens _umwDuration (\ s a -> s{_umwDuration = a}) . mapping _Nat
umwWindowId :: Lens' UpdateMaintenanceWindow Text
umwWindowId = lens _umwWindowId (\ s a -> s{_umwWindowId = a})
instance AWSRequest UpdateMaintenanceWindow where
type Rs UpdateMaintenanceWindow =
UpdateMaintenanceWindowResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
UpdateMaintenanceWindowResponse' <$>
(x .?> "Enabled") <*> (x .?> "Schedule") <*>
(x .?> "Name")
<*> (x .?> "Cutoff")
<*> (x .?> "AllowUnassociatedTargets")
<*> (x .?> "Description")
<*> (x .?> "Duration")
<*> (x .?> "WindowId")
<*> (pure (fromEnum s)))
instance Hashable UpdateMaintenanceWindow where
instance NFData UpdateMaintenanceWindow where
instance ToHeaders UpdateMaintenanceWindow where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.UpdateMaintenanceWindow" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateMaintenanceWindow where
toJSON UpdateMaintenanceWindow'{..}
= object
(catMaybes
[("Replace" .=) <$> _umwReplace,
("Enabled" .=) <$> _umwEnabled,
("Schedule" .=) <$> _umwSchedule,
("Name" .=) <$> _umwName,
("Cutoff" .=) <$> _umwCutoff,
("AllowUnassociatedTargets" .=) <$>
_umwAllowUnassociatedTargets,
("Description" .=) <$> _umwDescription,
("Duration" .=) <$> _umwDuration,
Just ("WindowId" .= _umwWindowId)])
instance ToPath UpdateMaintenanceWindow where
toPath = const "/"
instance ToQuery UpdateMaintenanceWindow where
toQuery = const mempty
data UpdateMaintenanceWindowResponse = UpdateMaintenanceWindowResponse'
{ _umwrsEnabled :: !(Maybe Bool)
, _umwrsSchedule :: !(Maybe Text)
, _umwrsName :: !(Maybe Text)
, _umwrsCutoff :: !(Maybe Nat)
, _umwrsAllowUnassociatedTargets :: !(Maybe Bool)
, _umwrsDescription :: !(Maybe (Sensitive Text))
, _umwrsDuration :: !(Maybe Nat)
, _umwrsWindowId :: !(Maybe Text)
, _umwrsResponseStatus :: !Int
} deriving (Eq, Show, Data, Typeable, Generic)
updateMaintenanceWindowResponse
:: Int
-> UpdateMaintenanceWindowResponse
updateMaintenanceWindowResponse pResponseStatus_ =
UpdateMaintenanceWindowResponse'
{ _umwrsEnabled = Nothing
, _umwrsSchedule = Nothing
, _umwrsName = Nothing
, _umwrsCutoff = Nothing
, _umwrsAllowUnassociatedTargets = Nothing
, _umwrsDescription = Nothing
, _umwrsDuration = Nothing
, _umwrsWindowId = Nothing
, _umwrsResponseStatus = pResponseStatus_
}
umwrsEnabled :: Lens' UpdateMaintenanceWindowResponse (Maybe Bool)
umwrsEnabled = lens _umwrsEnabled (\ s a -> s{_umwrsEnabled = a})
umwrsSchedule :: Lens' UpdateMaintenanceWindowResponse (Maybe Text)
umwrsSchedule = lens _umwrsSchedule (\ s a -> s{_umwrsSchedule = a})
umwrsName :: Lens' UpdateMaintenanceWindowResponse (Maybe Text)
umwrsName = lens _umwrsName (\ s a -> s{_umwrsName = a})
umwrsCutoff :: Lens' UpdateMaintenanceWindowResponse (Maybe Natural)
umwrsCutoff = lens _umwrsCutoff (\ s a -> s{_umwrsCutoff = a}) . mapping _Nat
umwrsAllowUnassociatedTargets :: Lens' UpdateMaintenanceWindowResponse (Maybe Bool)
umwrsAllowUnassociatedTargets = lens _umwrsAllowUnassociatedTargets (\ s a -> s{_umwrsAllowUnassociatedTargets = a})
umwrsDescription :: Lens' UpdateMaintenanceWindowResponse (Maybe Text)
umwrsDescription = lens _umwrsDescription (\ s a -> s{_umwrsDescription = a}) . mapping _Sensitive
umwrsDuration :: Lens' UpdateMaintenanceWindowResponse (Maybe Natural)
umwrsDuration = lens _umwrsDuration (\ s a -> s{_umwrsDuration = a}) . mapping _Nat
umwrsWindowId :: Lens' UpdateMaintenanceWindowResponse (Maybe Text)
umwrsWindowId = lens _umwrsWindowId (\ s a -> s{_umwrsWindowId = a})
umwrsResponseStatus :: Lens' UpdateMaintenanceWindowResponse Int
umwrsResponseStatus = lens _umwrsResponseStatus (\ s a -> s{_umwrsResponseStatus = a})
instance NFData UpdateMaintenanceWindowResponse where