module Network.AWS.EC2.DescribeSpotDatafeedSubscription
(
DescribeSpotDatafeedSubscription
, describeSpotDatafeedSubscription
, dsdsDryRun
, DescribeSpotDatafeedSubscriptionResponse
, describeSpotDatafeedSubscriptionResponse
, dsdsrSpotDatafeedSubscription
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
newtype DescribeSpotDatafeedSubscription = DescribeSpotDatafeedSubscription
{ _dsdsDryRun :: Maybe Bool
} deriving (Eq, Ord, Show)
describeSpotDatafeedSubscription :: DescribeSpotDatafeedSubscription
describeSpotDatafeedSubscription = DescribeSpotDatafeedSubscription
{ _dsdsDryRun = Nothing
}
dsdsDryRun :: Lens' DescribeSpotDatafeedSubscription (Maybe Bool)
dsdsDryRun = lens _dsdsDryRun (\s a -> s { _dsdsDryRun = a })
newtype DescribeSpotDatafeedSubscriptionResponse = DescribeSpotDatafeedSubscriptionResponse
{ _dsdsrSpotDatafeedSubscription :: Maybe SpotDatafeedSubscription
} deriving (Eq, Show)
describeSpotDatafeedSubscriptionResponse :: DescribeSpotDatafeedSubscriptionResponse
describeSpotDatafeedSubscriptionResponse = DescribeSpotDatafeedSubscriptionResponse
{ _dsdsrSpotDatafeedSubscription = Nothing
}
dsdsrSpotDatafeedSubscription :: Lens' DescribeSpotDatafeedSubscriptionResponse (Maybe SpotDatafeedSubscription)
dsdsrSpotDatafeedSubscription =
lens _dsdsrSpotDatafeedSubscription
(\s a -> s { _dsdsrSpotDatafeedSubscription = a })
instance ToPath DescribeSpotDatafeedSubscription where
toPath = const "/"
instance ToQuery DescribeSpotDatafeedSubscription where
toQuery DescribeSpotDatafeedSubscription{..} = mconcat
[ "dryRun" =? _dsdsDryRun
]
instance ToHeaders DescribeSpotDatafeedSubscription
instance AWSRequest DescribeSpotDatafeedSubscription where
type Sv DescribeSpotDatafeedSubscription = EC2
type Rs DescribeSpotDatafeedSubscription = DescribeSpotDatafeedSubscriptionResponse
request = post "DescribeSpotDatafeedSubscription"
response = xmlResponse
instance FromXML DescribeSpotDatafeedSubscriptionResponse where
parseXML x = DescribeSpotDatafeedSubscriptionResponse
<$> x .@? "spotDatafeedSubscription"