module Network.AWS.DirectConnect.DescribeVirtualInterfaces
(
DescribeVirtualInterfaces
, describeVirtualInterfaces
, dviConnectionId
, dviVirtualInterfaceId
, DescribeVirtualInterfacesResponse
, describeVirtualInterfacesResponse
, dvirVirtualInterfaces
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.DirectConnect.Types
import qualified GHC.Exts
data DescribeVirtualInterfaces = DescribeVirtualInterfaces
{ _dviConnectionId :: Maybe Text
, _dviVirtualInterfaceId :: Maybe Text
} deriving (Eq, Ord, Show)
describeVirtualInterfaces :: DescribeVirtualInterfaces
describeVirtualInterfaces = DescribeVirtualInterfaces
{ _dviConnectionId = Nothing
, _dviVirtualInterfaceId = Nothing
}
dviConnectionId :: Lens' DescribeVirtualInterfaces (Maybe Text)
dviConnectionId = lens _dviConnectionId (\s a -> s { _dviConnectionId = a })
dviVirtualInterfaceId :: Lens' DescribeVirtualInterfaces (Maybe Text)
dviVirtualInterfaceId =
lens _dviVirtualInterfaceId (\s a -> s { _dviVirtualInterfaceId = a })
newtype DescribeVirtualInterfacesResponse = DescribeVirtualInterfacesResponse
{ _dvirVirtualInterfaces :: List "virtualInterfaces" VirtualInterface
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeVirtualInterfacesResponse where
type Item DescribeVirtualInterfacesResponse = VirtualInterface
fromList = DescribeVirtualInterfacesResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _dvirVirtualInterfaces
describeVirtualInterfacesResponse :: DescribeVirtualInterfacesResponse
describeVirtualInterfacesResponse = DescribeVirtualInterfacesResponse
{ _dvirVirtualInterfaces = mempty
}
dvirVirtualInterfaces :: Lens' DescribeVirtualInterfacesResponse [VirtualInterface]
dvirVirtualInterfaces =
lens _dvirVirtualInterfaces (\s a -> s { _dvirVirtualInterfaces = a })
. _List
instance ToPath DescribeVirtualInterfaces where
toPath = const "/"
instance ToQuery DescribeVirtualInterfaces where
toQuery = const mempty
instance ToHeaders DescribeVirtualInterfaces
instance ToJSON DescribeVirtualInterfaces where
toJSON DescribeVirtualInterfaces{..} = object
[ "connectionId" .= _dviConnectionId
, "virtualInterfaceId" .= _dviVirtualInterfaceId
]
instance AWSRequest DescribeVirtualInterfaces where
type Sv DescribeVirtualInterfaces = DirectConnect
type Rs DescribeVirtualInterfaces = DescribeVirtualInterfacesResponse
request = post "DescribeVirtualInterfaces"
response = jsonResponse
instance FromJSON DescribeVirtualInterfacesResponse where
parseJSON = withObject "DescribeVirtualInterfacesResponse" $ \o -> DescribeVirtualInterfacesResponse
<$> o .:? "virtualInterfaces" .!= mempty