module Network.AWS.EC2.DetachNetworkInterface
(
DetachNetworkInterface
, detachNetworkInterface
, dniAttachmentId
, dniDryRun
, dniForce
, DetachNetworkInterfaceResponse
, detachNetworkInterfaceResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data DetachNetworkInterface = DetachNetworkInterface
{ _dniAttachmentId :: Text
, _dniDryRun :: Maybe Bool
, _dniForce :: Maybe Bool
} deriving (Eq, Ord, Read, Show)
detachNetworkInterface :: Text
-> DetachNetworkInterface
detachNetworkInterface p1 = DetachNetworkInterface
{ _dniAttachmentId = p1
, _dniDryRun = Nothing
, _dniForce = Nothing
}
dniAttachmentId :: Lens' DetachNetworkInterface Text
dniAttachmentId = lens _dniAttachmentId (\s a -> s { _dniAttachmentId = a })
dniDryRun :: Lens' DetachNetworkInterface (Maybe Bool)
dniDryRun = lens _dniDryRun (\s a -> s { _dniDryRun = a })
dniForce :: Lens' DetachNetworkInterface (Maybe Bool)
dniForce = lens _dniForce (\s a -> s { _dniForce = a })
data DetachNetworkInterfaceResponse = DetachNetworkInterfaceResponse
deriving (Eq, Ord, Read, Show, Generic)
detachNetworkInterfaceResponse :: DetachNetworkInterfaceResponse
detachNetworkInterfaceResponse = DetachNetworkInterfaceResponse
instance ToPath DetachNetworkInterface where
toPath = const "/"
instance ToQuery DetachNetworkInterface where
toQuery DetachNetworkInterface{..} = mconcat
[ "AttachmentId" =? _dniAttachmentId
, "DryRun" =? _dniDryRun
, "Force" =? _dniForce
]
instance ToHeaders DetachNetworkInterface
instance AWSRequest DetachNetworkInterface where
type Sv DetachNetworkInterface = EC2
type Rs DetachNetworkInterface = DetachNetworkInterfaceResponse
request = post "DetachNetworkInterface"
response = nullResponse DetachNetworkInterfaceResponse