{-# 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.DeleteLag
(
deleteLag
, DeleteLag
, dLagId
, lag
, Lag
, lagLagId
, lagConnectionsBandwidth
, lagMinimumLinks
, lagLagName
, lagLocation
, lagConnections
, lagAwsDevice
, lagAllowsHostedConnections
, lagNumberOfConnections
, lagLagState
, lagOwnerAccount
, lagRegion
) 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 DeleteLag = DeleteLag'
{ _dLagId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteLag
:: Text
-> DeleteLag
deleteLag pLagId_ = DeleteLag' {_dLagId = pLagId_}
dLagId :: Lens' DeleteLag Text
dLagId = lens _dLagId (\ s a -> s{_dLagId = a})
instance AWSRequest DeleteLag where
type Rs DeleteLag = Lag
request = postJSON directConnect
response = receiveJSON (\ s h x -> eitherParseJSON x)
instance Hashable DeleteLag where
instance NFData DeleteLag where
instance ToHeaders DeleteLag where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OvertureService.DeleteLag" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteLag where
toJSON DeleteLag'{..}
= object (catMaybes [Just ("lagId" .= _dLagId)])
instance ToPath DeleteLag where
toPath = const "/"
instance ToQuery DeleteLag where
toQuery = const mempty