{-# 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.DescribeDatastore
(
describeDatastore
, DescribeDatastore
, dDatastoreName
, describeDatastoreResponse
, DescribeDatastoreResponse
, drsDatastore
, drsResponseStatus
) 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 DescribeDatastore = DescribeDatastore'
{ _dDatastoreName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeDatastore
:: Text
-> DescribeDatastore
describeDatastore pDatastoreName_ =
DescribeDatastore' {_dDatastoreName = pDatastoreName_}
dDatastoreName :: Lens' DescribeDatastore Text
dDatastoreName = lens _dDatastoreName (\ s a -> s{_dDatastoreName = a})
instance AWSRequest DescribeDatastore where
type Rs DescribeDatastore = DescribeDatastoreResponse
request = get ioTAnalytics
response
= receiveJSON
(\ s h x ->
DescribeDatastoreResponse' <$>
(x .?> "datastore") <*> (pure (fromEnum s)))
instance Hashable DescribeDatastore where
instance NFData DescribeDatastore where
instance ToHeaders DescribeDatastore where
toHeaders = const mempty
instance ToPath DescribeDatastore where
toPath DescribeDatastore'{..}
= mconcat ["/datastores/", toBS _dDatastoreName]
instance ToQuery DescribeDatastore where
toQuery = const mempty
data DescribeDatastoreResponse = DescribeDatastoreResponse'
{ _drsDatastore :: !(Maybe Datastore)
, _drsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeDatastoreResponse
:: Int
-> DescribeDatastoreResponse
describeDatastoreResponse pResponseStatus_ =
DescribeDatastoreResponse'
{_drsDatastore = Nothing, _drsResponseStatus = pResponseStatus_}
drsDatastore :: Lens' DescribeDatastoreResponse (Maybe Datastore)
drsDatastore = lens _drsDatastore (\ s a -> s{_drsDatastore = a})
drsResponseStatus :: Lens' DescribeDatastoreResponse Int
drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})
instance NFData DescribeDatastoreResponse where