module Network.AWS.DirectConnect.DeleteVirtualInterface
(
DeleteVirtualInterface
, deleteVirtualInterface
, dvi1VirtualInterfaceId
, DeleteVirtualInterfaceResponse
, deleteVirtualInterfaceResponse
, dvirVirtualInterfaceState
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.DirectConnect.Types
import qualified GHC.Exts
newtype DeleteVirtualInterface = DeleteVirtualInterface
{ _dvi1VirtualInterfaceId :: Text
} deriving (Eq, Ord, Read, Show, Monoid, IsString)
deleteVirtualInterface :: Text
-> DeleteVirtualInterface
deleteVirtualInterface p1 = DeleteVirtualInterface
{ _dvi1VirtualInterfaceId = p1
}
dvi1VirtualInterfaceId :: Lens' DeleteVirtualInterface Text
dvi1VirtualInterfaceId =
lens _dvi1VirtualInterfaceId (\s a -> s { _dvi1VirtualInterfaceId = a })
newtype DeleteVirtualInterfaceResponse = DeleteVirtualInterfaceResponse
{ _dvirVirtualInterfaceState :: Maybe VirtualInterfaceState
} deriving (Eq, Read, Show)
deleteVirtualInterfaceResponse :: DeleteVirtualInterfaceResponse
deleteVirtualInterfaceResponse = DeleteVirtualInterfaceResponse
{ _dvirVirtualInterfaceState = Nothing
}
dvirVirtualInterfaceState :: Lens' DeleteVirtualInterfaceResponse (Maybe VirtualInterfaceState)
dvirVirtualInterfaceState =
lens _dvirVirtualInterfaceState
(\s a -> s { _dvirVirtualInterfaceState = a })
instance ToPath DeleteVirtualInterface where
toPath = const "/"
instance ToQuery DeleteVirtualInterface where
toQuery = const mempty
instance ToHeaders DeleteVirtualInterface
instance ToJSON DeleteVirtualInterface where
toJSON DeleteVirtualInterface{..} = object
[ "virtualInterfaceId" .= _dvi1VirtualInterfaceId
]
instance AWSRequest DeleteVirtualInterface where
type Sv DeleteVirtualInterface = DirectConnect
type Rs DeleteVirtualInterface = DeleteVirtualInterfaceResponse
request = post "DeleteVirtualInterface"
response = jsonResponse
instance FromJSON DeleteVirtualInterfaceResponse where
parseJSON = withObject "DeleteVirtualInterfaceResponse" $ \o -> DeleteVirtualInterfaceResponse
<$> o .:? "virtualInterfaceState"