module Network.AWS.StorageGateway.DescribeMaintenanceStartTime
(
describeMaintenanceStartTime
, DescribeMaintenanceStartTime
, dmstGatewayARN
, describeMaintenanceStartTimeResponse
, DescribeMaintenanceStartTimeResponse
, dmstrsGatewayARN
, dmstrsMinuteOfHour
, dmstrsHourOfDay
, dmstrsTimezone
, dmstrsDayOfWeek
, dmstrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.StorageGateway.Types
import Network.AWS.StorageGateway.Types.Product
newtype DescribeMaintenanceStartTime = DescribeMaintenanceStartTime'
{ _dmstGatewayARN :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeMaintenanceStartTime
:: Text
-> DescribeMaintenanceStartTime
describeMaintenanceStartTime pGatewayARN_ =
DescribeMaintenanceStartTime'
{ _dmstGatewayARN = pGatewayARN_
}
dmstGatewayARN :: Lens' DescribeMaintenanceStartTime Text
dmstGatewayARN = lens _dmstGatewayARN (\ s a -> s{_dmstGatewayARN = a});
instance AWSRequest DescribeMaintenanceStartTime
where
type Rs DescribeMaintenanceStartTime =
DescribeMaintenanceStartTimeResponse
request = postJSON storageGateway
response
= receiveJSON
(\ s h x ->
DescribeMaintenanceStartTimeResponse' <$>
(x .?> "GatewayARN") <*> (x .?> "MinuteOfHour") <*>
(x .?> "HourOfDay")
<*> (x .?> "Timezone")
<*> (x .?> "DayOfWeek")
<*> (pure (fromEnum s)))
instance Hashable DescribeMaintenanceStartTime
instance NFData DescribeMaintenanceStartTime
instance ToHeaders DescribeMaintenanceStartTime where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("StorageGateway_20130630.DescribeMaintenanceStartTime"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeMaintenanceStartTime where
toJSON DescribeMaintenanceStartTime'{..}
= object
(catMaybes [Just ("GatewayARN" .= _dmstGatewayARN)])
instance ToPath DescribeMaintenanceStartTime where
toPath = const "/"
instance ToQuery DescribeMaintenanceStartTime where
toQuery = const mempty
data DescribeMaintenanceStartTimeResponse = DescribeMaintenanceStartTimeResponse'
{ _dmstrsGatewayARN :: !(Maybe Text)
, _dmstrsMinuteOfHour :: !(Maybe Nat)
, _dmstrsHourOfDay :: !(Maybe Nat)
, _dmstrsTimezone :: !(Maybe Text)
, _dmstrsDayOfWeek :: !(Maybe Nat)
, _dmstrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeMaintenanceStartTimeResponse
:: Int
-> DescribeMaintenanceStartTimeResponse
describeMaintenanceStartTimeResponse pResponseStatus_ =
DescribeMaintenanceStartTimeResponse'
{ _dmstrsGatewayARN = Nothing
, _dmstrsMinuteOfHour = Nothing
, _dmstrsHourOfDay = Nothing
, _dmstrsTimezone = Nothing
, _dmstrsDayOfWeek = Nothing
, _dmstrsResponseStatus = pResponseStatus_
}
dmstrsGatewayARN :: Lens' DescribeMaintenanceStartTimeResponse (Maybe Text)
dmstrsGatewayARN = lens _dmstrsGatewayARN (\ s a -> s{_dmstrsGatewayARN = a});
dmstrsMinuteOfHour :: Lens' DescribeMaintenanceStartTimeResponse (Maybe Natural)
dmstrsMinuteOfHour = lens _dmstrsMinuteOfHour (\ s a -> s{_dmstrsMinuteOfHour = a}) . mapping _Nat;
dmstrsHourOfDay :: Lens' DescribeMaintenanceStartTimeResponse (Maybe Natural)
dmstrsHourOfDay = lens _dmstrsHourOfDay (\ s a -> s{_dmstrsHourOfDay = a}) . mapping _Nat;
dmstrsTimezone :: Lens' DescribeMaintenanceStartTimeResponse (Maybe Text)
dmstrsTimezone = lens _dmstrsTimezone (\ s a -> s{_dmstrsTimezone = a});
dmstrsDayOfWeek :: Lens' DescribeMaintenanceStartTimeResponse (Maybe Natural)
dmstrsDayOfWeek = lens _dmstrsDayOfWeek (\ s a -> s{_dmstrsDayOfWeek = a}) . mapping _Nat;
dmstrsResponseStatus :: Lens' DescribeMaintenanceStartTimeResponse Int
dmstrsResponseStatus = lens _dmstrsResponseStatus (\ s a -> s{_dmstrsResponseStatus = a});
instance NFData DescribeMaintenanceStartTimeResponse