{-# 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.EC2.GetLaunchTemplateData
(
getLaunchTemplateData
, GetLaunchTemplateData
, gltdDryRun
, gltdInstanceId
, getLaunchTemplateDataResponse
, GetLaunchTemplateDataResponse
, gltdrsLaunchTemplateData
, gltdrsResponseStatus
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetLaunchTemplateData = GetLaunchTemplateData'
{ _gltdDryRun :: !(Maybe Bool)
, _gltdInstanceId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getLaunchTemplateData
:: Text
-> GetLaunchTemplateData
getLaunchTemplateData pInstanceId_ =
GetLaunchTemplateData' {_gltdDryRun = Nothing, _gltdInstanceId = pInstanceId_}
gltdDryRun :: Lens' GetLaunchTemplateData (Maybe Bool)
gltdDryRun = lens _gltdDryRun (\ s a -> s{_gltdDryRun = a})
gltdInstanceId :: Lens' GetLaunchTemplateData Text
gltdInstanceId = lens _gltdInstanceId (\ s a -> s{_gltdInstanceId = a})
instance AWSRequest GetLaunchTemplateData where
type Rs GetLaunchTemplateData =
GetLaunchTemplateDataResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
GetLaunchTemplateDataResponse' <$>
(x .@? "launchTemplateData") <*> (pure (fromEnum s)))
instance Hashable GetLaunchTemplateData where
instance NFData GetLaunchTemplateData where
instance ToHeaders GetLaunchTemplateData where
toHeaders = const mempty
instance ToPath GetLaunchTemplateData where
toPath = const "/"
instance ToQuery GetLaunchTemplateData where
toQuery GetLaunchTemplateData'{..}
= mconcat
["Action" =: ("GetLaunchTemplateData" :: ByteString),
"Version" =: ("2016-11-15" :: ByteString),
"DryRun" =: _gltdDryRun,
"InstanceId" =: _gltdInstanceId]
data GetLaunchTemplateDataResponse = GetLaunchTemplateDataResponse'
{ _gltdrsLaunchTemplateData :: !(Maybe ResponseLaunchTemplateData)
, _gltdrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getLaunchTemplateDataResponse
:: Int
-> GetLaunchTemplateDataResponse
getLaunchTemplateDataResponse pResponseStatus_ =
GetLaunchTemplateDataResponse'
{ _gltdrsLaunchTemplateData = Nothing
, _gltdrsResponseStatus = pResponseStatus_
}
gltdrsLaunchTemplateData :: Lens' GetLaunchTemplateDataResponse (Maybe ResponseLaunchTemplateData)
gltdrsLaunchTemplateData = lens _gltdrsLaunchTemplateData (\ s a -> s{_gltdrsLaunchTemplateData = a})
gltdrsResponseStatus :: Lens' GetLaunchTemplateDataResponse Int
gltdrsResponseStatus = lens _gltdrsResponseStatus (\ s a -> s{_gltdrsResponseStatus = a})
instance NFData GetLaunchTemplateDataResponse where