{-# 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.DescribeConnectionLoa
(
describeConnectionLoa
, DescribeConnectionLoa
, dclLoaContentType
, dclProviderName
, dclConnectionId
, describeConnectionLoaResponse
, DescribeConnectionLoaResponse
, dclrsLoa
, dclrsResponseStatus
) 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 DescribeConnectionLoa = DescribeConnectionLoa'
{ _dclLoaContentType :: !(Maybe LoaContentType)
, _dclProviderName :: !(Maybe Text)
, _dclConnectionId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeConnectionLoa
:: Text
-> DescribeConnectionLoa
describeConnectionLoa pConnectionId_ =
DescribeConnectionLoa'
{ _dclLoaContentType = Nothing
, _dclProviderName = Nothing
, _dclConnectionId = pConnectionId_
}
dclLoaContentType :: Lens' DescribeConnectionLoa (Maybe LoaContentType)
dclLoaContentType = lens _dclLoaContentType (\ s a -> s{_dclLoaContentType = a});
dclProviderName :: Lens' DescribeConnectionLoa (Maybe Text)
dclProviderName = lens _dclProviderName (\ s a -> s{_dclProviderName = a});
dclConnectionId :: Lens' DescribeConnectionLoa Text
dclConnectionId = lens _dclConnectionId (\ s a -> s{_dclConnectionId = a});
instance AWSRequest DescribeConnectionLoa where
type Rs DescribeConnectionLoa =
DescribeConnectionLoaResponse
request = postJSON directConnect
response
= receiveJSON
(\ s h x ->
DescribeConnectionLoaResponse' <$>
(x .?> "loa") <*> (pure (fromEnum s)))
instance Hashable DescribeConnectionLoa
instance NFData DescribeConnectionLoa
instance ToHeaders DescribeConnectionLoa where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OvertureService.DescribeConnectionLoa" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeConnectionLoa where
toJSON DescribeConnectionLoa'{..}
= object
(catMaybes
[("loaContentType" .=) <$> _dclLoaContentType,
("providerName" .=) <$> _dclProviderName,
Just ("connectionId" .= _dclConnectionId)])
instance ToPath DescribeConnectionLoa where
toPath = const "/"
instance ToQuery DescribeConnectionLoa where
toQuery = const mempty
data DescribeConnectionLoaResponse = DescribeConnectionLoaResponse'
{ _dclrsLoa :: !(Maybe Loa)
, _dclrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeConnectionLoaResponse
:: Int
-> DescribeConnectionLoaResponse
describeConnectionLoaResponse pResponseStatus_ =
DescribeConnectionLoaResponse'
{ _dclrsLoa = Nothing
, _dclrsResponseStatus = pResponseStatus_
}
dclrsLoa :: Lens' DescribeConnectionLoaResponse (Maybe Loa)
dclrsLoa = lens _dclrsLoa (\ s a -> s{_dclrsLoa = a});
dclrsResponseStatus :: Lens' DescribeConnectionLoaResponse Int
dclrsResponseStatus = lens _dclrsResponseStatus (\ s a -> s{_dclrsResponseStatus = a});
instance NFData DescribeConnectionLoaResponse