{-# 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.CreateInterconnect
(
createInterconnect
, CreateInterconnect
, ciInterconnectName
, ciBandwidth
, ciLocation
, interconnect
, Interconnect
, iInterconnectId
, iLocation
, iInterconnectName
, iLoaIssueTime
, iBandwidth
, iInterconnectState
, iRegion
) 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 CreateInterconnect = CreateInterconnect'
{ _ciInterconnectName :: !Text
, _ciBandwidth :: !Text
, _ciLocation :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createInterconnect
:: Text
-> Text
-> Text
-> CreateInterconnect
createInterconnect pInterconnectName_ pBandwidth_ pLocation_ =
CreateInterconnect'
{ _ciInterconnectName = pInterconnectName_
, _ciBandwidth = pBandwidth_
, _ciLocation = pLocation_
}
ciInterconnectName :: Lens' CreateInterconnect Text
ciInterconnectName = lens _ciInterconnectName (\ s a -> s{_ciInterconnectName = a});
ciBandwidth :: Lens' CreateInterconnect Text
ciBandwidth = lens _ciBandwidth (\ s a -> s{_ciBandwidth = a});
ciLocation :: Lens' CreateInterconnect Text
ciLocation = lens _ciLocation (\ s a -> s{_ciLocation = a});
instance AWSRequest CreateInterconnect where
type Rs CreateInterconnect = Interconnect
request = postJSON directConnect
response = receiveJSON (\ s h x -> eitherParseJSON x)
instance Hashable CreateInterconnect
instance NFData CreateInterconnect
instance ToHeaders CreateInterconnect where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OvertureService.CreateInterconnect" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateInterconnect where
toJSON CreateInterconnect'{..}
= object
(catMaybes
[Just ("interconnectName" .= _ciInterconnectName),
Just ("bandwidth" .= _ciBandwidth),
Just ("location" .= _ciLocation)])
instance ToPath CreateInterconnect where
toPath = const "/"
instance ToQuery CreateInterconnect where
toQuery = const mempty