{-# 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.IoTAnalytics.DescribePipeline
(
describePipeline
, DescribePipeline
, dpPipelineName
, describePipelineResponse
, DescribePipelineResponse
, dprsPipeline
, dprsResponseStatus
) where
import Network.AWS.IoTAnalytics.Types
import Network.AWS.IoTAnalytics.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DescribePipeline = DescribePipeline'
{ _dpPipelineName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describePipeline
:: Text
-> DescribePipeline
describePipeline pPipelineName_ =
DescribePipeline' {_dpPipelineName = pPipelineName_}
dpPipelineName :: Lens' DescribePipeline Text
dpPipelineName = lens _dpPipelineName (\ s a -> s{_dpPipelineName = a})
instance AWSRequest DescribePipeline where
type Rs DescribePipeline = DescribePipelineResponse
request = get ioTAnalytics
response
= receiveJSON
(\ s h x ->
DescribePipelineResponse' <$>
(x .?> "pipeline") <*> (pure (fromEnum s)))
instance Hashable DescribePipeline where
instance NFData DescribePipeline where
instance ToHeaders DescribePipeline where
toHeaders = const mempty
instance ToPath DescribePipeline where
toPath DescribePipeline'{..}
= mconcat ["/pipelines/", toBS _dpPipelineName]
instance ToQuery DescribePipeline where
toQuery = const mempty
data DescribePipelineResponse = DescribePipelineResponse'
{ _dprsPipeline :: !(Maybe Pipeline)
, _dprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describePipelineResponse
:: Int
-> DescribePipelineResponse
describePipelineResponse pResponseStatus_ =
DescribePipelineResponse'
{_dprsPipeline = Nothing, _dprsResponseStatus = pResponseStatus_}
dprsPipeline :: Lens' DescribePipelineResponse (Maybe Pipeline)
dprsPipeline = lens _dprsPipeline (\ s a -> s{_dprsPipeline = a})
dprsResponseStatus :: Lens' DescribePipelineResponse Int
dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a})
instance NFData DescribePipelineResponse where