{-# 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.CreateDatastore
(
createDatastore
, CreateDatastore
, cdRetentionPeriod
, cdDatastoreName
, createDatastoreResponse
, CreateDatastoreResponse
, cdrsDatastoreARN
, cdrsDatastoreName
, cdrsRetentionPeriod
, cdrsResponseStatus
) 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
data CreateDatastore = CreateDatastore'
{ _cdRetentionPeriod :: !(Maybe RetentionPeriod)
, _cdDatastoreName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createDatastore
:: Text
-> CreateDatastore
createDatastore pDatastoreName_ =
CreateDatastore'
{_cdRetentionPeriod = Nothing, _cdDatastoreName = pDatastoreName_}
cdRetentionPeriod :: Lens' CreateDatastore (Maybe RetentionPeriod)
cdRetentionPeriod = lens _cdRetentionPeriod (\ s a -> s{_cdRetentionPeriod = a})
cdDatastoreName :: Lens' CreateDatastore Text
cdDatastoreName = lens _cdDatastoreName (\ s a -> s{_cdDatastoreName = a})
instance AWSRequest CreateDatastore where
type Rs CreateDatastore = CreateDatastoreResponse
request = postJSON ioTAnalytics
response
= receiveJSON
(\ s h x ->
CreateDatastoreResponse' <$>
(x .?> "datastoreArn") <*> (x .?> "datastoreName")
<*> (x .?> "retentionPeriod")
<*> (pure (fromEnum s)))
instance Hashable CreateDatastore where
instance NFData CreateDatastore where
instance ToHeaders CreateDatastore where
toHeaders = const mempty
instance ToJSON CreateDatastore where
toJSON CreateDatastore'{..}
= object
(catMaybes
[("retentionPeriod" .=) <$> _cdRetentionPeriod,
Just ("datastoreName" .= _cdDatastoreName)])
instance ToPath CreateDatastore where
toPath = const "/datastores"
instance ToQuery CreateDatastore where
toQuery = const mempty
data CreateDatastoreResponse = CreateDatastoreResponse'
{ _cdrsDatastoreARN :: !(Maybe Text)
, _cdrsDatastoreName :: !(Maybe Text)
, _cdrsRetentionPeriod :: !(Maybe RetentionPeriod)
, _cdrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createDatastoreResponse
:: Int
-> CreateDatastoreResponse
createDatastoreResponse pResponseStatus_ =
CreateDatastoreResponse'
{ _cdrsDatastoreARN = Nothing
, _cdrsDatastoreName = Nothing
, _cdrsRetentionPeriod = Nothing
, _cdrsResponseStatus = pResponseStatus_
}
cdrsDatastoreARN :: Lens' CreateDatastoreResponse (Maybe Text)
cdrsDatastoreARN = lens _cdrsDatastoreARN (\ s a -> s{_cdrsDatastoreARN = a})
cdrsDatastoreName :: Lens' CreateDatastoreResponse (Maybe Text)
cdrsDatastoreName = lens _cdrsDatastoreName (\ s a -> s{_cdrsDatastoreName = a})
cdrsRetentionPeriod :: Lens' CreateDatastoreResponse (Maybe RetentionPeriod)
cdrsRetentionPeriod = lens _cdrsRetentionPeriod (\ s a -> s{_cdrsRetentionPeriod = a})
cdrsResponseStatus :: Lens' CreateDatastoreResponse Int
cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a})
instance NFData CreateDatastoreResponse where