{-# 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.DeleteStream
(
deleteStream
, DeleteStream
, dsStreamId
, deleteStreamResponse
, DeleteStreamResponse
, dsrsResponseStatus
) 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
newtype DeleteStream = DeleteStream'
{ _dsStreamId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteStream
:: Text
-> DeleteStream
deleteStream pStreamId_ = DeleteStream' {_dsStreamId = pStreamId_}
dsStreamId :: Lens' DeleteStream Text
dsStreamId = lens _dsStreamId (\ s a -> s{_dsStreamId = a})
instance AWSRequest DeleteStream where
type Rs DeleteStream = DeleteStreamResponse
request = delete ioT
response
= receiveEmpty
(\ s h x ->
DeleteStreamResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteStream where
instance NFData DeleteStream where
instance ToHeaders DeleteStream where
toHeaders = const mempty
instance ToPath DeleteStream where
toPath DeleteStream'{..}
= mconcat ["/streams/", toBS _dsStreamId]
instance ToQuery DeleteStream where
toQuery = const mempty
newtype DeleteStreamResponse = DeleteStreamResponse'
{ _dsrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteStreamResponse
:: Int
-> DeleteStreamResponse
deleteStreamResponse pResponseStatus_ =
DeleteStreamResponse' {_dsrsResponseStatus = pResponseStatus_}
dsrsResponseStatus :: Lens' DeleteStreamResponse Int
dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a})
instance NFData DeleteStreamResponse where