{-# 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.DirectConnect.DescribeInterconnects
(
describeInterconnects
, DescribeInterconnects
, diInterconnectId
, describeInterconnectsResponse
, DescribeInterconnectsResponse
, dirsInterconnects
, dirsResponseStatus
) where
import Network.AWS.DirectConnect.Types
import Network.AWS.DirectConnect.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DescribeInterconnects = DescribeInterconnects'
{ _diInterconnectId :: Maybe Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeInterconnects
:: DescribeInterconnects
describeInterconnects =
DescribeInterconnects'
{ _diInterconnectId = Nothing
}
diInterconnectId :: Lens' DescribeInterconnects (Maybe Text)
diInterconnectId = lens _diInterconnectId (\ s a -> s{_diInterconnectId = a});
instance AWSRequest DescribeInterconnects where
type Rs DescribeInterconnects =
DescribeInterconnectsResponse
request = postJSON directConnect
response
= receiveJSON
(\ s h x ->
DescribeInterconnectsResponse' <$>
(x .?> "interconnects" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable DescribeInterconnects
instance NFData DescribeInterconnects
instance ToHeaders DescribeInterconnects where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OvertureService.DescribeInterconnects" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeInterconnects where
toJSON DescribeInterconnects'{..}
= object
(catMaybes
[("interconnectId" .=) <$> _diInterconnectId])
instance ToPath DescribeInterconnects where
toPath = const "/"
instance ToQuery DescribeInterconnects where
toQuery = const mempty
data DescribeInterconnectsResponse = DescribeInterconnectsResponse'
{ _dirsInterconnects :: !(Maybe [Interconnect])
, _dirsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeInterconnectsResponse
:: Int
-> DescribeInterconnectsResponse
describeInterconnectsResponse pResponseStatus_ =
DescribeInterconnectsResponse'
{ _dirsInterconnects = Nothing
, _dirsResponseStatus = pResponseStatus_
}
dirsInterconnects :: Lens' DescribeInterconnectsResponse [Interconnect]
dirsInterconnects = lens _dirsInterconnects (\ s a -> s{_dirsInterconnects = a}) . _Default . _Coerce;
dirsResponseStatus :: Lens' DescribeInterconnectsResponse Int
dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a});
instance NFData DescribeInterconnectsResponse