module Network.AWS.DirectConnect.DescribeConnectionsOnInterconnect
(
DescribeConnectionsOnInterconnect
, describeConnectionsOnInterconnect
, dcoiInterconnectId
, DescribeConnectionsOnInterconnectResponse
, describeConnectionsOnInterconnectResponse
, dcoirConnections
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.DirectConnect.Types
import qualified GHC.Exts
newtype DescribeConnectionsOnInterconnect = DescribeConnectionsOnInterconnect
{ _dcoiInterconnectId :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
describeConnectionsOnInterconnect :: Text
-> DescribeConnectionsOnInterconnect
describeConnectionsOnInterconnect p1 = DescribeConnectionsOnInterconnect
{ _dcoiInterconnectId = p1
}
dcoiInterconnectId :: Lens' DescribeConnectionsOnInterconnect Text
dcoiInterconnectId =
lens _dcoiInterconnectId (\s a -> s { _dcoiInterconnectId = a })
newtype DescribeConnectionsOnInterconnectResponse = DescribeConnectionsOnInterconnectResponse
{ _dcoirConnections :: List "connections" Connection
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeConnectionsOnInterconnectResponse where
type Item DescribeConnectionsOnInterconnectResponse = Connection
fromList = DescribeConnectionsOnInterconnectResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _dcoirConnections
describeConnectionsOnInterconnectResponse :: DescribeConnectionsOnInterconnectResponse
describeConnectionsOnInterconnectResponse = DescribeConnectionsOnInterconnectResponse
{ _dcoirConnections = mempty
}
dcoirConnections :: Lens' DescribeConnectionsOnInterconnectResponse [Connection]
dcoirConnections = lens _dcoirConnections (\s a -> s { _dcoirConnections = a }) . _List
instance ToPath DescribeConnectionsOnInterconnect where
toPath = const "/"
instance ToQuery DescribeConnectionsOnInterconnect where
toQuery = const mempty
instance ToHeaders DescribeConnectionsOnInterconnect
instance ToJSON DescribeConnectionsOnInterconnect where
toJSON DescribeConnectionsOnInterconnect{..} = object
[ "interconnectId" .= _dcoiInterconnectId
]
instance AWSRequest DescribeConnectionsOnInterconnect where
type Sv DescribeConnectionsOnInterconnect = DirectConnect
type Rs DescribeConnectionsOnInterconnect = DescribeConnectionsOnInterconnectResponse
request = post "DescribeConnectionsOnInterconnect"
response = jsonResponse
instance FromJSON DescribeConnectionsOnInterconnectResponse where
parseJSON = withObject "DescribeConnectionsOnInterconnectResponse" $ \o -> DescribeConnectionsOnInterconnectResponse
<$> o .: "connections"