{-# 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.DescribeInterconnectLoa
(
describeInterconnectLoa
, DescribeInterconnectLoa
, dilLoaContentType
, dilProviderName
, dilInterconnectId
, describeInterconnectLoaResponse
, DescribeInterconnectLoaResponse
, dilrsLoa
, dilrsResponseStatus
) 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
data DescribeInterconnectLoa = DescribeInterconnectLoa'
{ _dilLoaContentType :: !(Maybe LoaContentType)
, _dilProviderName :: !(Maybe Text)
, _dilInterconnectId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeInterconnectLoa
:: Text
-> DescribeInterconnectLoa
describeInterconnectLoa pInterconnectId_ =
DescribeInterconnectLoa'
{ _dilLoaContentType = Nothing
, _dilProviderName = Nothing
, _dilInterconnectId = pInterconnectId_
}
dilLoaContentType :: Lens' DescribeInterconnectLoa (Maybe LoaContentType)
dilLoaContentType = lens _dilLoaContentType (\ s a -> s{_dilLoaContentType = a});
dilProviderName :: Lens' DescribeInterconnectLoa (Maybe Text)
dilProviderName = lens _dilProviderName (\ s a -> s{_dilProviderName = a});
dilInterconnectId :: Lens' DescribeInterconnectLoa Text
dilInterconnectId = lens _dilInterconnectId (\ s a -> s{_dilInterconnectId = a});
instance AWSRequest DescribeInterconnectLoa where
type Rs DescribeInterconnectLoa =
DescribeInterconnectLoaResponse
request = postJSON directConnect
response
= receiveJSON
(\ s h x ->
DescribeInterconnectLoaResponse' <$>
(x .?> "loa") <*> (pure (fromEnum s)))
instance Hashable DescribeInterconnectLoa
instance NFData DescribeInterconnectLoa
instance ToHeaders DescribeInterconnectLoa where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OvertureService.DescribeInterconnectLoa" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeInterconnectLoa where
toJSON DescribeInterconnectLoa'{..}
= object
(catMaybes
[("loaContentType" .=) <$> _dilLoaContentType,
("providerName" .=) <$> _dilProviderName,
Just ("interconnectId" .= _dilInterconnectId)])
instance ToPath DescribeInterconnectLoa where
toPath = const "/"
instance ToQuery DescribeInterconnectLoa where
toQuery = const mempty
data DescribeInterconnectLoaResponse = DescribeInterconnectLoaResponse'
{ _dilrsLoa :: !(Maybe Loa)
, _dilrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeInterconnectLoaResponse
:: Int
-> DescribeInterconnectLoaResponse
describeInterconnectLoaResponse pResponseStatus_ =
DescribeInterconnectLoaResponse'
{ _dilrsLoa = Nothing
, _dilrsResponseStatus = pResponseStatus_
}
dilrsLoa :: Lens' DescribeInterconnectLoaResponse (Maybe Loa)
dilrsLoa = lens _dilrsLoa (\ s a -> s{_dilrsLoa = a});
dilrsResponseStatus :: Lens' DescribeInterconnectLoaResponse Int
dilrsResponseStatus = lens _dilrsResponseStatus (\ s a -> s{_dilrsResponseStatus = a});
instance NFData DescribeInterconnectLoaResponse