{-# 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.CreateDatasetContent
(
createDatasetContent
, CreateDatasetContent
, cdcDatasetName
, createDatasetContentResponse
, CreateDatasetContentResponse
) 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 CreateDatasetContent = CreateDatasetContent'
{ _cdcDatasetName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createDatasetContent
:: Text
-> CreateDatasetContent
createDatasetContent pDatasetName_ =
CreateDatasetContent' {_cdcDatasetName = pDatasetName_}
cdcDatasetName :: Lens' CreateDatasetContent Text
cdcDatasetName = lens _cdcDatasetName (\ s a -> s{_cdcDatasetName = a})
instance AWSRequest CreateDatasetContent where
type Rs CreateDatasetContent =
CreateDatasetContentResponse
request = postJSON ioTAnalytics
response = receiveNull CreateDatasetContentResponse'
instance Hashable CreateDatasetContent where
instance NFData CreateDatasetContent where
instance ToHeaders CreateDatasetContent where
toHeaders = const mempty
instance ToJSON CreateDatasetContent where
toJSON = const (Object mempty)
instance ToPath CreateDatasetContent where
toPath CreateDatasetContent'{..}
= mconcat
["/datasets/", toBS _cdcDatasetName, "/content"]
instance ToQuery CreateDatasetContent where
toQuery = const mempty
data CreateDatasetContentResponse =
CreateDatasetContentResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
createDatasetContentResponse
:: CreateDatasetContentResponse
createDatasetContentResponse = CreateDatasetContentResponse'
instance NFData CreateDatasetContentResponse where