{-# 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.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 where
instance NFData DescribeMaintenanceStartTime where
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
where