{-# 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.KinesisAnalytics.DescribeApplication
(
describeApplication
, DescribeApplication
, daApplicationName
, describeApplicationResponse
, DescribeApplicationResponse
, darsResponseStatus
, darsApplicationDetail
) where
import Network.AWS.KinesisAnalytics.Types
import Network.AWS.KinesisAnalytics.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DescribeApplication = DescribeApplication'
{ _daApplicationName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeApplication
:: Text
-> DescribeApplication
describeApplication pApplicationName_ =
DescribeApplication' {_daApplicationName = pApplicationName_}
daApplicationName :: Lens' DescribeApplication Text
daApplicationName = lens _daApplicationName (\ s a -> s{_daApplicationName = a})
instance AWSRequest DescribeApplication where
type Rs DescribeApplication =
DescribeApplicationResponse
request = postJSON kinesisAnalytics
response
= receiveJSON
(\ s h x ->
DescribeApplicationResponse' <$>
(pure (fromEnum s)) <*> (x .:> "ApplicationDetail"))
instance Hashable DescribeApplication where
instance NFData DescribeApplication where
instance ToHeaders DescribeApplication where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("KinesisAnalytics_20150814.DescribeApplication" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeApplication where
toJSON DescribeApplication'{..}
= object
(catMaybes
[Just ("ApplicationName" .= _daApplicationName)])
instance ToPath DescribeApplication where
toPath = const "/"
instance ToQuery DescribeApplication where
toQuery = const mempty
data DescribeApplicationResponse = DescribeApplicationResponse'
{ _darsResponseStatus :: !Int
, _darsApplicationDetail :: !ApplicationDetail
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeApplicationResponse
:: Int
-> ApplicationDetail
-> DescribeApplicationResponse
describeApplicationResponse pResponseStatus_ pApplicationDetail_ =
DescribeApplicationResponse'
{ _darsResponseStatus = pResponseStatus_
, _darsApplicationDetail = pApplicationDetail_
}
darsResponseStatus :: Lens' DescribeApplicationResponse Int
darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a})
darsApplicationDetail :: Lens' DescribeApplicationResponse ApplicationDetail
darsApplicationDetail = lens _darsApplicationDetail (\ s a -> s{_darsApplicationDetail = a})
instance NFData DescribeApplicationResponse where