{-# 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.DescribeFpgaImageAttribute
(
describeFpgaImageAttribute
, DescribeFpgaImageAttribute
, dfiaDryRun
, dfiaFpgaImageId
, dfiaAttribute
, describeFpgaImageAttributeResponse
, DescribeFpgaImageAttributeResponse
, dfiarsFpgaImageAttribute
, dfiarsResponseStatus
) 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 DescribeFpgaImageAttribute = DescribeFpgaImageAttribute'
{ _dfiaDryRun :: !(Maybe Bool)
, _dfiaFpgaImageId :: !Text
, _dfiaAttribute :: !FpgaImageAttributeName
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeFpgaImageAttribute
:: Text
-> FpgaImageAttributeName
-> DescribeFpgaImageAttribute
describeFpgaImageAttribute pFpgaImageId_ pAttribute_ =
DescribeFpgaImageAttribute'
{ _dfiaDryRun = Nothing
, _dfiaFpgaImageId = pFpgaImageId_
, _dfiaAttribute = pAttribute_
}
dfiaDryRun :: Lens' DescribeFpgaImageAttribute (Maybe Bool)
dfiaDryRun = lens _dfiaDryRun (\ s a -> s{_dfiaDryRun = a})
dfiaFpgaImageId :: Lens' DescribeFpgaImageAttribute Text
dfiaFpgaImageId = lens _dfiaFpgaImageId (\ s a -> s{_dfiaFpgaImageId = a})
dfiaAttribute :: Lens' DescribeFpgaImageAttribute FpgaImageAttributeName
dfiaAttribute = lens _dfiaAttribute (\ s a -> s{_dfiaAttribute = a})
instance AWSRequest DescribeFpgaImageAttribute where
type Rs DescribeFpgaImageAttribute =
DescribeFpgaImageAttributeResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
DescribeFpgaImageAttributeResponse' <$>
(x .@? "fpgaImageAttribute") <*> (pure (fromEnum s)))
instance Hashable DescribeFpgaImageAttribute where
instance NFData DescribeFpgaImageAttribute where
instance ToHeaders DescribeFpgaImageAttribute where
toHeaders = const mempty
instance ToPath DescribeFpgaImageAttribute where
toPath = const "/"
instance ToQuery DescribeFpgaImageAttribute where
toQuery DescribeFpgaImageAttribute'{..}
= mconcat
["Action" =:
("DescribeFpgaImageAttribute" :: ByteString),
"Version" =: ("2016-11-15" :: ByteString),
"DryRun" =: _dfiaDryRun,
"FpgaImageId" =: _dfiaFpgaImageId,
"Attribute" =: _dfiaAttribute]
data DescribeFpgaImageAttributeResponse = DescribeFpgaImageAttributeResponse'
{ _dfiarsFpgaImageAttribute :: !(Maybe FpgaImageAttribute)
, _dfiarsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeFpgaImageAttributeResponse
:: Int
-> DescribeFpgaImageAttributeResponse
describeFpgaImageAttributeResponse pResponseStatus_ =
DescribeFpgaImageAttributeResponse'
{ _dfiarsFpgaImageAttribute = Nothing
, _dfiarsResponseStatus = pResponseStatus_
}
dfiarsFpgaImageAttribute :: Lens' DescribeFpgaImageAttributeResponse (Maybe FpgaImageAttribute)
dfiarsFpgaImageAttribute = lens _dfiarsFpgaImageAttribute (\ s a -> s{_dfiarsFpgaImageAttribute = a})
dfiarsResponseStatus :: Lens' DescribeFpgaImageAttributeResponse Int
dfiarsResponseStatus = lens _dfiarsResponseStatus (\ s a -> s{_dfiarsResponseStatus = a})
instance NFData DescribeFpgaImageAttributeResponse
where