module Network.AWS.MachineLearning.GetDataSource
(
GetDataSource
, getDataSource
, gdsDataSourceId
, gdsVerbose
, GetDataSourceResponse
, getDataSourceResponse
, gdsrComputeStatistics
, gdsrCreatedAt
, gdsrCreatedByIamUser
, gdsrDataLocationS3
, gdsrDataRearrangement
, gdsrDataSizeInBytes
, gdsrDataSourceId
, gdsrDataSourceSchema
, gdsrLastUpdatedAt
, gdsrLogUri
, gdsrMessage
, gdsrName
, gdsrNumberOfFiles
, gdsrRDSMetadata
, gdsrRedshiftMetadata
, gdsrRoleARN
, gdsrStatus
) where
import Network.AWS.Data (Object)
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.MachineLearning.Types
import qualified GHC.Exts
data GetDataSource = GetDataSource
{ _gdsDataSourceId :: Text
, _gdsVerbose :: Maybe Bool
} deriving (Eq, Ord, Read, Show)
getDataSource :: Text
-> GetDataSource
getDataSource p1 = GetDataSource
{ _gdsDataSourceId = p1
, _gdsVerbose = Nothing
}
gdsDataSourceId :: Lens' GetDataSource Text
gdsDataSourceId = lens _gdsDataSourceId (\s a -> s { _gdsDataSourceId = a })
gdsVerbose :: Lens' GetDataSource (Maybe Bool)
gdsVerbose = lens _gdsVerbose (\s a -> s { _gdsVerbose = a })
data GetDataSourceResponse = GetDataSourceResponse
{ _gdsrComputeStatistics :: Maybe Bool
, _gdsrCreatedAt :: Maybe POSIX
, _gdsrCreatedByIamUser :: Maybe Text
, _gdsrDataLocationS3 :: Maybe Text
, _gdsrDataRearrangement :: Maybe Text
, _gdsrDataSizeInBytes :: Maybe Integer
, _gdsrDataSourceId :: Maybe Text
, _gdsrDataSourceSchema :: Maybe Text
, _gdsrLastUpdatedAt :: Maybe POSIX
, _gdsrLogUri :: Maybe Text
, _gdsrMessage :: Maybe Text
, _gdsrName :: Maybe Text
, _gdsrNumberOfFiles :: Maybe Integer
, _gdsrRDSMetadata :: Maybe RDSMetadata
, _gdsrRedshiftMetadata :: Maybe RedshiftMetadata
, _gdsrRoleARN :: Maybe Text
, _gdsrStatus :: Maybe EntityStatus
} deriving (Eq, Read, Show)
getDataSourceResponse :: GetDataSourceResponse
getDataSourceResponse = GetDataSourceResponse
{ _gdsrDataSourceId = Nothing
, _gdsrDataLocationS3 = Nothing
, _gdsrDataRearrangement = Nothing
, _gdsrCreatedByIamUser = Nothing
, _gdsrCreatedAt = Nothing
, _gdsrLastUpdatedAt = Nothing
, _gdsrDataSizeInBytes = Nothing
, _gdsrNumberOfFiles = Nothing
, _gdsrName = Nothing
, _gdsrStatus = Nothing
, _gdsrLogUri = Nothing
, _gdsrMessage = Nothing
, _gdsrRedshiftMetadata = Nothing
, _gdsrRDSMetadata = Nothing
, _gdsrRoleARN = Nothing
, _gdsrComputeStatistics = Nothing
, _gdsrDataSourceSchema = Nothing
}
gdsrComputeStatistics :: Lens' GetDataSourceResponse (Maybe Bool)
gdsrComputeStatistics =
lens _gdsrComputeStatistics (\s a -> s { _gdsrComputeStatistics = a })
gdsrCreatedAt :: Lens' GetDataSourceResponse (Maybe UTCTime)
gdsrCreatedAt = lens _gdsrCreatedAt (\s a -> s { _gdsrCreatedAt = a }) . mapping _Time
gdsrCreatedByIamUser :: Lens' GetDataSourceResponse (Maybe Text)
gdsrCreatedByIamUser =
lens _gdsrCreatedByIamUser (\s a -> s { _gdsrCreatedByIamUser = a })
gdsrDataLocationS3 :: Lens' GetDataSourceResponse (Maybe Text)
gdsrDataLocationS3 =
lens _gdsrDataLocationS3 (\s a -> s { _gdsrDataLocationS3 = a })
gdsrDataRearrangement :: Lens' GetDataSourceResponse (Maybe Text)
gdsrDataRearrangement =
lens _gdsrDataRearrangement (\s a -> s { _gdsrDataRearrangement = a })
gdsrDataSizeInBytes :: Lens' GetDataSourceResponse (Maybe Integer)
gdsrDataSizeInBytes =
lens _gdsrDataSizeInBytes (\s a -> s { _gdsrDataSizeInBytes = a })
gdsrDataSourceId :: Lens' GetDataSourceResponse (Maybe Text)
gdsrDataSourceId = lens _gdsrDataSourceId (\s a -> s { _gdsrDataSourceId = a })
gdsrDataSourceSchema :: Lens' GetDataSourceResponse (Maybe Text)
gdsrDataSourceSchema =
lens _gdsrDataSourceSchema (\s a -> s { _gdsrDataSourceSchema = a })
gdsrLastUpdatedAt :: Lens' GetDataSourceResponse (Maybe UTCTime)
gdsrLastUpdatedAt =
lens _gdsrLastUpdatedAt (\s a -> s { _gdsrLastUpdatedAt = a })
. mapping _Time
gdsrLogUri :: Lens' GetDataSourceResponse (Maybe Text)
gdsrLogUri = lens _gdsrLogUri (\s a -> s { _gdsrLogUri = a })
gdsrMessage :: Lens' GetDataSourceResponse (Maybe Text)
gdsrMessage = lens _gdsrMessage (\s a -> s { _gdsrMessage = a })
gdsrName :: Lens' GetDataSourceResponse (Maybe Text)
gdsrName = lens _gdsrName (\s a -> s { _gdsrName = a })
gdsrNumberOfFiles :: Lens' GetDataSourceResponse (Maybe Integer)
gdsrNumberOfFiles =
lens _gdsrNumberOfFiles (\s a -> s { _gdsrNumberOfFiles = a })
gdsrRDSMetadata :: Lens' GetDataSourceResponse (Maybe RDSMetadata)
gdsrRDSMetadata = lens _gdsrRDSMetadata (\s a -> s { _gdsrRDSMetadata = a })
gdsrRedshiftMetadata :: Lens' GetDataSourceResponse (Maybe RedshiftMetadata)
gdsrRedshiftMetadata =
lens _gdsrRedshiftMetadata (\s a -> s { _gdsrRedshiftMetadata = a })
gdsrRoleARN :: Lens' GetDataSourceResponse (Maybe Text)
gdsrRoleARN = lens _gdsrRoleARN (\s a -> s { _gdsrRoleARN = a })
gdsrStatus :: Lens' GetDataSourceResponse (Maybe EntityStatus)
gdsrStatus = lens _gdsrStatus (\s a -> s { _gdsrStatus = a })
instance ToPath GetDataSource where
toPath = const "/"
instance ToQuery GetDataSource where
toQuery = const mempty
instance ToHeaders GetDataSource
instance ToJSON GetDataSource where
toJSON GetDataSource{..} = object
[ "DataSourceId" .= _gdsDataSourceId
, "Verbose" .= _gdsVerbose
]
instance AWSRequest GetDataSource where
type Sv GetDataSource = MachineLearning
type Rs GetDataSource = GetDataSourceResponse
request = post "GetDataSource"
response = jsonResponse
instance FromJSON GetDataSourceResponse where
parseJSON = withObject "GetDataSourceResponse" $ \o -> GetDataSourceResponse
<$> o .:? "ComputeStatistics"
<*> o .:? "CreatedAt"
<*> o .:? "CreatedByIamUser"
<*> o .:? "DataLocationS3"
<*> o .:? "DataRearrangement"
<*> o .:? "DataSizeInBytes"
<*> o .:? "DataSourceId"
<*> o .:? "DataSourceSchema"
<*> o .:? "LastUpdatedAt"
<*> o .:? "LogUri"
<*> o .:? "Message"
<*> o .:? "Name"
<*> o .:? "NumberOfFiles"
<*> o .:? "RDSMetadata"
<*> o .:? "RedshiftMetadata"
<*> o .:? "RoleARN"
<*> o .:? "Status"