module Network.AWS.MachineLearning.GetDataSource
(
getDataSource
, GetDataSource
, gdsVerbose
, gdsDataSourceId
, getDataSourceResponse
, GetDataSourceResponse
, gdsrsStatus
, gdsrsNumberOfFiles
, gdsrsLastUpdatedAt
, gdsrsCreatedAt
, gdsrsDataSourceId
, gdsrsRDSMetadata
, gdsrsDataSizeInBytes
, gdsrsDataSourceSchema
, gdsrsCreatedByIAMUser
, gdsrsName
, gdsrsLogURI
, gdsrsDataLocationS3
, gdsrsComputeStatistics
, gdsrsMessage
, gdsrsRedshiftMetadata
, gdsrsDataRearrangement
, gdsrsRoleARN
, gdsrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.MachineLearning.Types
import Network.AWS.MachineLearning.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetDataSource = GetDataSource'
{ _gdsVerbose :: !(Maybe Bool)
, _gdsDataSourceId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getDataSource
:: Text
-> GetDataSource
getDataSource pDataSourceId_ =
GetDataSource'
{ _gdsVerbose = Nothing
, _gdsDataSourceId = pDataSourceId_
}
gdsVerbose :: Lens' GetDataSource (Maybe Bool)
gdsVerbose = lens _gdsVerbose (\ s a -> s{_gdsVerbose = a});
gdsDataSourceId :: Lens' GetDataSource Text
gdsDataSourceId = lens _gdsDataSourceId (\ s a -> s{_gdsDataSourceId = a});
instance AWSRequest GetDataSource where
type Rs GetDataSource = GetDataSourceResponse
request = postJSON machineLearning
response
= receiveJSON
(\ s h x ->
GetDataSourceResponse' <$>
(x .?> "Status") <*> (x .?> "NumberOfFiles") <*>
(x .?> "LastUpdatedAt")
<*> (x .?> "CreatedAt")
<*> (x .?> "DataSourceId")
<*> (x .?> "RDSMetadata")
<*> (x .?> "DataSizeInBytes")
<*> (x .?> "DataSourceSchema")
<*> (x .?> "CreatedByIamUser")
<*> (x .?> "Name")
<*> (x .?> "LogUri")
<*> (x .?> "DataLocationS3")
<*> (x .?> "ComputeStatistics")
<*> (x .?> "Message")
<*> (x .?> "RedshiftMetadata")
<*> (x .?> "DataRearrangement")
<*> (x .?> "RoleARN")
<*> (pure (fromEnum s)))
instance Hashable GetDataSource
instance NFData GetDataSource
instance ToHeaders GetDataSource where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonML_20141212.GetDataSource" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetDataSource where
toJSON GetDataSource'{..}
= object
(catMaybes
[("Verbose" .=) <$> _gdsVerbose,
Just ("DataSourceId" .= _gdsDataSourceId)])
instance ToPath GetDataSource where
toPath = const "/"
instance ToQuery GetDataSource where
toQuery = const mempty
data GetDataSourceResponse = GetDataSourceResponse'
{ _gdsrsStatus :: !(Maybe EntityStatus)
, _gdsrsNumberOfFiles :: !(Maybe Integer)
, _gdsrsLastUpdatedAt :: !(Maybe POSIX)
, _gdsrsCreatedAt :: !(Maybe POSIX)
, _gdsrsDataSourceId :: !(Maybe Text)
, _gdsrsRDSMetadata :: !(Maybe RDSMetadata)
, _gdsrsDataSizeInBytes :: !(Maybe Integer)
, _gdsrsDataSourceSchema :: !(Maybe Text)
, _gdsrsCreatedByIAMUser :: !(Maybe Text)
, _gdsrsName :: !(Maybe Text)
, _gdsrsLogURI :: !(Maybe Text)
, _gdsrsDataLocationS3 :: !(Maybe Text)
, _gdsrsComputeStatistics :: !(Maybe Bool)
, _gdsrsMessage :: !(Maybe Text)
, _gdsrsRedshiftMetadata :: !(Maybe RedshiftMetadata)
, _gdsrsDataRearrangement :: !(Maybe Text)
, _gdsrsRoleARN :: !(Maybe Text)
, _gdsrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getDataSourceResponse
:: Int
-> GetDataSourceResponse
getDataSourceResponse pResponseStatus_ =
GetDataSourceResponse'
{ _gdsrsStatus = Nothing
, _gdsrsNumberOfFiles = Nothing
, _gdsrsLastUpdatedAt = Nothing
, _gdsrsCreatedAt = Nothing
, _gdsrsDataSourceId = Nothing
, _gdsrsRDSMetadata = Nothing
, _gdsrsDataSizeInBytes = Nothing
, _gdsrsDataSourceSchema = Nothing
, _gdsrsCreatedByIAMUser = Nothing
, _gdsrsName = Nothing
, _gdsrsLogURI = Nothing
, _gdsrsDataLocationS3 = Nothing
, _gdsrsComputeStatistics = Nothing
, _gdsrsMessage = Nothing
, _gdsrsRedshiftMetadata = Nothing
, _gdsrsDataRearrangement = Nothing
, _gdsrsRoleARN = Nothing
, _gdsrsResponseStatus = pResponseStatus_
}
gdsrsStatus :: Lens' GetDataSourceResponse (Maybe EntityStatus)
gdsrsStatus = lens _gdsrsStatus (\ s a -> s{_gdsrsStatus = a});
gdsrsNumberOfFiles :: Lens' GetDataSourceResponse (Maybe Integer)
gdsrsNumberOfFiles = lens _gdsrsNumberOfFiles (\ s a -> s{_gdsrsNumberOfFiles = a});
gdsrsLastUpdatedAt :: Lens' GetDataSourceResponse (Maybe UTCTime)
gdsrsLastUpdatedAt = lens _gdsrsLastUpdatedAt (\ s a -> s{_gdsrsLastUpdatedAt = a}) . mapping _Time;
gdsrsCreatedAt :: Lens' GetDataSourceResponse (Maybe UTCTime)
gdsrsCreatedAt = lens _gdsrsCreatedAt (\ s a -> s{_gdsrsCreatedAt = a}) . mapping _Time;
gdsrsDataSourceId :: Lens' GetDataSourceResponse (Maybe Text)
gdsrsDataSourceId = lens _gdsrsDataSourceId (\ s a -> s{_gdsrsDataSourceId = a});
gdsrsRDSMetadata :: Lens' GetDataSourceResponse (Maybe RDSMetadata)
gdsrsRDSMetadata = lens _gdsrsRDSMetadata (\ s a -> s{_gdsrsRDSMetadata = a});
gdsrsDataSizeInBytes :: Lens' GetDataSourceResponse (Maybe Integer)
gdsrsDataSizeInBytes = lens _gdsrsDataSizeInBytes (\ s a -> s{_gdsrsDataSizeInBytes = a});
gdsrsDataSourceSchema :: Lens' GetDataSourceResponse (Maybe Text)
gdsrsDataSourceSchema = lens _gdsrsDataSourceSchema (\ s a -> s{_gdsrsDataSourceSchema = a});
gdsrsCreatedByIAMUser :: Lens' GetDataSourceResponse (Maybe Text)
gdsrsCreatedByIAMUser = lens _gdsrsCreatedByIAMUser (\ s a -> s{_gdsrsCreatedByIAMUser = a});
gdsrsName :: Lens' GetDataSourceResponse (Maybe Text)
gdsrsName = lens _gdsrsName (\ s a -> s{_gdsrsName = a});
gdsrsLogURI :: Lens' GetDataSourceResponse (Maybe Text)
gdsrsLogURI = lens _gdsrsLogURI (\ s a -> s{_gdsrsLogURI = a});
gdsrsDataLocationS3 :: Lens' GetDataSourceResponse (Maybe Text)
gdsrsDataLocationS3 = lens _gdsrsDataLocationS3 (\ s a -> s{_gdsrsDataLocationS3 = a});
gdsrsComputeStatistics :: Lens' GetDataSourceResponse (Maybe Bool)
gdsrsComputeStatistics = lens _gdsrsComputeStatistics (\ s a -> s{_gdsrsComputeStatistics = a});
gdsrsMessage :: Lens' GetDataSourceResponse (Maybe Text)
gdsrsMessage = lens _gdsrsMessage (\ s a -> s{_gdsrsMessage = a});
gdsrsRedshiftMetadata :: Lens' GetDataSourceResponse (Maybe RedshiftMetadata)
gdsrsRedshiftMetadata = lens _gdsrsRedshiftMetadata (\ s a -> s{_gdsrsRedshiftMetadata = a});
gdsrsDataRearrangement :: Lens' GetDataSourceResponse (Maybe Text)
gdsrsDataRearrangement = lens _gdsrsDataRearrangement (\ s a -> s{_gdsrsDataRearrangement = a});
gdsrsRoleARN :: Lens' GetDataSourceResponse (Maybe Text)
gdsrsRoleARN = lens _gdsrsRoleARN (\ s a -> s{_gdsrsRoleARN = a});
gdsrsResponseStatus :: Lens' GetDataSourceResponse Int
gdsrsResponseStatus = lens _gdsrsResponseStatus (\ s a -> s{_gdsrsResponseStatus = a});
instance NFData GetDataSourceResponse