{-# 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.ResetNetworkInterfaceAttribute
(
resetNetworkInterfaceAttribute
, ResetNetworkInterfaceAttribute
, rniaSourceDestCheck
, rniaDryRun
, rniaNetworkInterfaceId
, resetNetworkInterfaceAttributeResponse
, ResetNetworkInterfaceAttributeResponse
) 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 ResetNetworkInterfaceAttribute = ResetNetworkInterfaceAttribute'
{ _rniaSourceDestCheck :: !(Maybe Text)
, _rniaDryRun :: !(Maybe Bool)
, _rniaNetworkInterfaceId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
resetNetworkInterfaceAttribute
:: Text
-> ResetNetworkInterfaceAttribute
resetNetworkInterfaceAttribute pNetworkInterfaceId_ =
ResetNetworkInterfaceAttribute'
{ _rniaSourceDestCheck = Nothing
, _rniaDryRun = Nothing
, _rniaNetworkInterfaceId = pNetworkInterfaceId_
}
rniaSourceDestCheck :: Lens' ResetNetworkInterfaceAttribute (Maybe Text)
rniaSourceDestCheck = lens _rniaSourceDestCheck (\ s a -> s{_rniaSourceDestCheck = a})
rniaDryRun :: Lens' ResetNetworkInterfaceAttribute (Maybe Bool)
rniaDryRun = lens _rniaDryRun (\ s a -> s{_rniaDryRun = a})
rniaNetworkInterfaceId :: Lens' ResetNetworkInterfaceAttribute Text
rniaNetworkInterfaceId = lens _rniaNetworkInterfaceId (\ s a -> s{_rniaNetworkInterfaceId = a})
instance AWSRequest ResetNetworkInterfaceAttribute
where
type Rs ResetNetworkInterfaceAttribute =
ResetNetworkInterfaceAttributeResponse
request = postQuery ec2
response
= receiveNull ResetNetworkInterfaceAttributeResponse'
instance Hashable ResetNetworkInterfaceAttribute
where
instance NFData ResetNetworkInterfaceAttribute where
instance ToHeaders ResetNetworkInterfaceAttribute
where
toHeaders = const mempty
instance ToPath ResetNetworkInterfaceAttribute where
toPath = const "/"
instance ToQuery ResetNetworkInterfaceAttribute where
toQuery ResetNetworkInterfaceAttribute'{..}
= mconcat
["Action" =:
("ResetNetworkInterfaceAttribute" :: ByteString),
"Version" =: ("2016-11-15" :: ByteString),
"SourceDestCheck" =: _rniaSourceDestCheck,
"DryRun" =: _rniaDryRun,
"NetworkInterfaceId" =: _rniaNetworkInterfaceId]
data ResetNetworkInterfaceAttributeResponse =
ResetNetworkInterfaceAttributeResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
resetNetworkInterfaceAttributeResponse
:: ResetNetworkInterfaceAttributeResponse
resetNetworkInterfaceAttributeResponse = ResetNetworkInterfaceAttributeResponse'
instance NFData
ResetNetworkInterfaceAttributeResponse
where