{-# 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.IoT.DeleteV2LoggingLevel
(
deleteV2LoggingLevel
, DeleteV2LoggingLevel
, dvllTargetType
, dvllTargetName
, deleteV2LoggingLevelResponse
, DeleteV2LoggingLevelResponse
) where
import Network.AWS.IoT.Types
import Network.AWS.IoT.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DeleteV2LoggingLevel = DeleteV2LoggingLevel'
{ _dvllTargetType :: !LogTargetType
, _dvllTargetName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteV2LoggingLevel
:: LogTargetType
-> Text
-> DeleteV2LoggingLevel
deleteV2LoggingLevel pTargetType_ pTargetName_ =
DeleteV2LoggingLevel'
{_dvllTargetType = pTargetType_, _dvllTargetName = pTargetName_}
dvllTargetType :: Lens' DeleteV2LoggingLevel LogTargetType
dvllTargetType = lens _dvllTargetType (\ s a -> s{_dvllTargetType = a})
dvllTargetName :: Lens' DeleteV2LoggingLevel Text
dvllTargetName = lens _dvllTargetName (\ s a -> s{_dvllTargetName = a})
instance AWSRequest DeleteV2LoggingLevel where
type Rs DeleteV2LoggingLevel =
DeleteV2LoggingLevelResponse
request = delete ioT
response = receiveNull DeleteV2LoggingLevelResponse'
instance Hashable DeleteV2LoggingLevel where
instance NFData DeleteV2LoggingLevel where
instance ToHeaders DeleteV2LoggingLevel where
toHeaders = const mempty
instance ToPath DeleteV2LoggingLevel where
toPath = const "/v2LoggingLevel"
instance ToQuery DeleteV2LoggingLevel where
toQuery DeleteV2LoggingLevel'{..}
= mconcat
["targetType" =: _dvllTargetType,
"targetName" =: _dvllTargetName]
data DeleteV2LoggingLevelResponse =
DeleteV2LoggingLevelResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteV2LoggingLevelResponse
:: DeleteV2LoggingLevelResponse
deleteV2LoggingLevelResponse = DeleteV2LoggingLevelResponse'
instance NFData DeleteV2LoggingLevelResponse where