{-# 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.UpdateDatastore
(
updateDatastore
, UpdateDatastore
, udRetentionPeriod
, udDatastoreName
, updateDatastoreResponse
, UpdateDatastoreResponse
) 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 UpdateDatastore = UpdateDatastore'
{ _udRetentionPeriod :: !(Maybe RetentionPeriod)
, _udDatastoreName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateDatastore
:: Text
-> UpdateDatastore
updateDatastore pDatastoreName_ =
UpdateDatastore'
{_udRetentionPeriod = Nothing, _udDatastoreName = pDatastoreName_}
udRetentionPeriod :: Lens' UpdateDatastore (Maybe RetentionPeriod)
udRetentionPeriod = lens _udRetentionPeriod (\ s a -> s{_udRetentionPeriod = a})
udDatastoreName :: Lens' UpdateDatastore Text
udDatastoreName = lens _udDatastoreName (\ s a -> s{_udDatastoreName = a})
instance AWSRequest UpdateDatastore where
type Rs UpdateDatastore = UpdateDatastoreResponse
request = putJSON ioTAnalytics
response = receiveNull UpdateDatastoreResponse'
instance Hashable UpdateDatastore where
instance NFData UpdateDatastore where
instance ToHeaders UpdateDatastore where
toHeaders = const mempty
instance ToJSON UpdateDatastore where
toJSON UpdateDatastore'{..}
= object
(catMaybes
[("retentionPeriod" .=) <$> _udRetentionPeriod])
instance ToPath UpdateDatastore where
toPath UpdateDatastore'{..}
= mconcat ["/datastores/", toBS _udDatastoreName]
instance ToQuery UpdateDatastore where
toQuery = const mempty
data UpdateDatastoreResponse =
UpdateDatastoreResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
updateDatastoreResponse
:: UpdateDatastoreResponse
updateDatastoreResponse = UpdateDatastoreResponse'
instance NFData UpdateDatastoreResponse where