{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.YouTubeReporting.Types.Product where
import Network.Google.Prelude
import Network.Google.YouTubeReporting.Types.Sum
data ListReportsResponse = ListReportsResponse'
{ _lrrNextPageToken :: !(Maybe Text)
, _lrrReports :: !(Maybe [Report])
} deriving (Eq,Show,Data,Typeable,Generic)
listReportsResponse
:: ListReportsResponse
listReportsResponse =
ListReportsResponse'
{ _lrrNextPageToken = Nothing
, _lrrReports = Nothing
}
lrrNextPageToken :: Lens' ListReportsResponse (Maybe Text)
lrrNextPageToken
= lens _lrrNextPageToken
(\ s a -> s{_lrrNextPageToken = a})
lrrReports :: Lens' ListReportsResponse [Report]
lrrReports
= lens _lrrReports (\ s a -> s{_lrrReports = a}) .
_Default
. _Coerce
instance FromJSON ListReportsResponse where
parseJSON
= withObject "ListReportsResponse"
(\ o ->
ListReportsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "reports" .!= mempty))
instance ToJSON ListReportsResponse where
toJSON ListReportsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lrrNextPageToken,
("reports" .=) <$> _lrrReports])
data GDataDiffChecksumsResponse = GDataDiffChecksumsResponse'
{ _gddcrChecksumsLocation :: !(Maybe GDataCompositeMedia)
, _gddcrObjectSizeBytes :: !(Maybe (Textual Int64))
, _gddcrChunkSizeBytes :: !(Maybe (Textual Int64))
, _gddcrObjectVersion :: !(Maybe Text)
, _gddcrObjectLocation :: !(Maybe GDataCompositeMedia)
} deriving (Eq,Show,Data,Typeable,Generic)
gDataDiffChecksumsResponse
:: GDataDiffChecksumsResponse
gDataDiffChecksumsResponse =
GDataDiffChecksumsResponse'
{ _gddcrChecksumsLocation = Nothing
, _gddcrObjectSizeBytes = Nothing
, _gddcrChunkSizeBytes = Nothing
, _gddcrObjectVersion = Nothing
, _gddcrObjectLocation = Nothing
}
gddcrChecksumsLocation :: Lens' GDataDiffChecksumsResponse (Maybe GDataCompositeMedia)
gddcrChecksumsLocation
= lens _gddcrChecksumsLocation
(\ s a -> s{_gddcrChecksumsLocation = a})
gddcrObjectSizeBytes :: Lens' GDataDiffChecksumsResponse (Maybe Int64)
gddcrObjectSizeBytes
= lens _gddcrObjectSizeBytes
(\ s a -> s{_gddcrObjectSizeBytes = a})
. mapping _Coerce
gddcrChunkSizeBytes :: Lens' GDataDiffChecksumsResponse (Maybe Int64)
gddcrChunkSizeBytes
= lens _gddcrChunkSizeBytes
(\ s a -> s{_gddcrChunkSizeBytes = a})
. mapping _Coerce
gddcrObjectVersion :: Lens' GDataDiffChecksumsResponse (Maybe Text)
gddcrObjectVersion
= lens _gddcrObjectVersion
(\ s a -> s{_gddcrObjectVersion = a})
gddcrObjectLocation :: Lens' GDataDiffChecksumsResponse (Maybe GDataCompositeMedia)
gddcrObjectLocation
= lens _gddcrObjectLocation
(\ s a -> s{_gddcrObjectLocation = a})
instance FromJSON GDataDiffChecksumsResponse where
parseJSON
= withObject "GDataDiffChecksumsResponse"
(\ o ->
GDataDiffChecksumsResponse' <$>
(o .:? "checksumsLocation") <*>
(o .:? "objectSizeBytes")
<*> (o .:? "chunkSizeBytes")
<*> (o .:? "objectVersion")
<*> (o .:? "objectLocation"))
instance ToJSON GDataDiffChecksumsResponse where
toJSON GDataDiffChecksumsResponse'{..}
= object
(catMaybes
[("checksumsLocation" .=) <$>
_gddcrChecksumsLocation,
("objectSizeBytes" .=) <$> _gddcrObjectSizeBytes,
("chunkSizeBytes" .=) <$> _gddcrChunkSizeBytes,
("objectVersion" .=) <$> _gddcrObjectVersion,
("objectLocation" .=) <$> _gddcrObjectLocation])
data GDataObjectId = GDataObjectId'
{ _gdoiObjectName :: !(Maybe Text)
, _gdoiBucketName :: !(Maybe Text)
, _gdoiGeneration :: !(Maybe (Textual Int64))
} deriving (Eq,Show,Data,Typeable,Generic)
gDataObjectId
:: GDataObjectId
gDataObjectId =
GDataObjectId'
{ _gdoiObjectName = Nothing
, _gdoiBucketName = Nothing
, _gdoiGeneration = Nothing
}
gdoiObjectName :: Lens' GDataObjectId (Maybe Text)
gdoiObjectName
= lens _gdoiObjectName
(\ s a -> s{_gdoiObjectName = a})
gdoiBucketName :: Lens' GDataObjectId (Maybe Text)
gdoiBucketName
= lens _gdoiBucketName
(\ s a -> s{_gdoiBucketName = a})
gdoiGeneration :: Lens' GDataObjectId (Maybe Int64)
gdoiGeneration
= lens _gdoiGeneration
(\ s a -> s{_gdoiGeneration = a})
. mapping _Coerce
instance FromJSON GDataObjectId where
parseJSON
= withObject "GDataObjectId"
(\ o ->
GDataObjectId' <$>
(o .:? "objectName") <*> (o .:? "bucketName") <*>
(o .:? "generation"))
instance ToJSON GDataObjectId where
toJSON GDataObjectId'{..}
= object
(catMaybes
[("objectName" .=) <$> _gdoiObjectName,
("bucketName" .=) <$> _gdoiBucketName,
("generation" .=) <$> _gdoiGeneration])
data Empty =
Empty'
deriving (Eq,Show,Data,Typeable,Generic)
empty
:: Empty
empty = Empty'
instance FromJSON Empty where
parseJSON = withObject "Empty" (\ o -> pure Empty')
instance ToJSON Empty where
toJSON = const emptyObject
data GDataContentTypeInfo = GDataContentTypeInfo'
{ _gdctiFromBytes :: !(Maybe Text)
, _gdctiFromFileName :: !(Maybe Text)
, _gdctiFromHeader :: !(Maybe Text)
, _gdctiBestGuess :: !(Maybe Text)
, _gdctiFromURLPath :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
gDataContentTypeInfo
:: GDataContentTypeInfo
gDataContentTypeInfo =
GDataContentTypeInfo'
{ _gdctiFromBytes = Nothing
, _gdctiFromFileName = Nothing
, _gdctiFromHeader = Nothing
, _gdctiBestGuess = Nothing
, _gdctiFromURLPath = Nothing
}
gdctiFromBytes :: Lens' GDataContentTypeInfo (Maybe Text)
gdctiFromBytes
= lens _gdctiFromBytes
(\ s a -> s{_gdctiFromBytes = a})
gdctiFromFileName :: Lens' GDataContentTypeInfo (Maybe Text)
gdctiFromFileName
= lens _gdctiFromFileName
(\ s a -> s{_gdctiFromFileName = a})
gdctiFromHeader :: Lens' GDataContentTypeInfo (Maybe Text)
gdctiFromHeader
= lens _gdctiFromHeader
(\ s a -> s{_gdctiFromHeader = a})
gdctiBestGuess :: Lens' GDataContentTypeInfo (Maybe Text)
gdctiBestGuess
= lens _gdctiBestGuess
(\ s a -> s{_gdctiBestGuess = a})
gdctiFromURLPath :: Lens' GDataContentTypeInfo (Maybe Text)
gdctiFromURLPath
= lens _gdctiFromURLPath
(\ s a -> s{_gdctiFromURLPath = a})
instance FromJSON GDataContentTypeInfo where
parseJSON
= withObject "GDataContentTypeInfo"
(\ o ->
GDataContentTypeInfo' <$>
(o .:? "fromBytes") <*> (o .:? "fromFileName") <*>
(o .:? "fromHeader")
<*> (o .:? "bestGuess")
<*> (o .:? "fromUrlPath"))
instance ToJSON GDataContentTypeInfo where
toJSON GDataContentTypeInfo'{..}
= object
(catMaybes
[("fromBytes" .=) <$> _gdctiFromBytes,
("fromFileName" .=) <$> _gdctiFromFileName,
("fromHeader" .=) <$> _gdctiFromHeader,
("bestGuess" .=) <$> _gdctiBestGuess,
("fromUrlPath" .=) <$> _gdctiFromURLPath])
data GDataMedia = GDataMedia'
{ _gdmLength :: !(Maybe (Textual Int64))
, _gdmDiffVersionResponse :: !(Maybe GDataDiffVersionResponse)
, _gdmDiffUploadRequest :: !(Maybe GDataDiffUploadRequest)
, _gdmBigstoreObjectRef :: !(Maybe Bytes)
, _gdmHash :: !(Maybe Text)
, _gdmIsPotentialRetry :: !(Maybe Bool)
, _gdmCrc32cHash :: !(Maybe (Textual Word32))
, _gdmBlobRef :: !(Maybe Bytes)
, _gdmPath :: !(Maybe Text)
, _gdmObjectId :: !(Maybe GDataObjectId)
, _gdmToken :: !(Maybe Text)
, _gdmInline :: !(Maybe Bytes)
, _gdmMediaId :: !(Maybe Bytes)
, _gdmSha1Hash :: !(Maybe Bytes)
, _gdmHashVerified :: !(Maybe Bool)
, _gdmContentTypeInfo :: !(Maybe GDataContentTypeInfo)
, _gdmAlgorithm :: !(Maybe Text)
, _gdmDiffDownloadResponse :: !(Maybe GDataDiffDownloadResponse)
, _gdmDiffUploadResponse :: !(Maybe GDataDiffUploadResponse)
, _gdmDiffChecksumsResponse :: !(Maybe GDataDiffChecksumsResponse)
, _gdmBlobstore2Info :: !(Maybe GDataBlobstore2Info)
, _gdmReferenceType :: !(Maybe GDataMediaReferenceType)
, _gdmTimestamp :: !(Maybe (Textual Word64))
, _gdmMD5Hash :: !(Maybe Bytes)
, _gdmDownloadParameters :: !(Maybe GDataDownloadParameters)
, _gdmCosmoBinaryReference :: !(Maybe Bytes)
, _gdmFilename :: !(Maybe Text)
, _gdmSha256Hash :: !(Maybe Bytes)
, _gdmContentType :: !(Maybe Text)
, _gdmCompositeMedia :: !(Maybe [GDataCompositeMedia])
} deriving (Eq,Show,Data,Typeable,Generic)
gDataMedia
:: GDataMedia
gDataMedia =
GDataMedia'
{ _gdmLength = Nothing
, _gdmDiffVersionResponse = Nothing
, _gdmDiffUploadRequest = Nothing
, _gdmBigstoreObjectRef = Nothing
, _gdmHash = Nothing
, _gdmIsPotentialRetry = Nothing
, _gdmCrc32cHash = Nothing
, _gdmBlobRef = Nothing
, _gdmPath = Nothing
, _gdmObjectId = Nothing
, _gdmToken = Nothing
, _gdmInline = Nothing
, _gdmMediaId = Nothing
, _gdmSha1Hash = Nothing
, _gdmHashVerified = Nothing
, _gdmContentTypeInfo = Nothing
, _gdmAlgorithm = Nothing
, _gdmDiffDownloadResponse = Nothing
, _gdmDiffUploadResponse = Nothing
, _gdmDiffChecksumsResponse = Nothing
, _gdmBlobstore2Info = Nothing
, _gdmReferenceType = Nothing
, _gdmTimestamp = Nothing
, _gdmMD5Hash = Nothing
, _gdmDownloadParameters = Nothing
, _gdmCosmoBinaryReference = Nothing
, _gdmFilename = Nothing
, _gdmSha256Hash = Nothing
, _gdmContentType = Nothing
, _gdmCompositeMedia = Nothing
}
gdmLength :: Lens' GDataMedia (Maybe Int64)
gdmLength
= lens _gdmLength (\ s a -> s{_gdmLength = a}) .
mapping _Coerce
gdmDiffVersionResponse :: Lens' GDataMedia (Maybe GDataDiffVersionResponse)
gdmDiffVersionResponse
= lens _gdmDiffVersionResponse
(\ s a -> s{_gdmDiffVersionResponse = a})
gdmDiffUploadRequest :: Lens' GDataMedia (Maybe GDataDiffUploadRequest)
gdmDiffUploadRequest
= lens _gdmDiffUploadRequest
(\ s a -> s{_gdmDiffUploadRequest = a})
gdmBigstoreObjectRef :: Lens' GDataMedia (Maybe ByteString)
gdmBigstoreObjectRef
= lens _gdmBigstoreObjectRef
(\ s a -> s{_gdmBigstoreObjectRef = a})
. mapping _Bytes
gdmHash :: Lens' GDataMedia (Maybe Text)
gdmHash = lens _gdmHash (\ s a -> s{_gdmHash = a})
gdmIsPotentialRetry :: Lens' GDataMedia (Maybe Bool)
gdmIsPotentialRetry
= lens _gdmIsPotentialRetry
(\ s a -> s{_gdmIsPotentialRetry = a})
gdmCrc32cHash :: Lens' GDataMedia (Maybe Word32)
gdmCrc32cHash
= lens _gdmCrc32cHash
(\ s a -> s{_gdmCrc32cHash = a})
. mapping _Coerce
gdmBlobRef :: Lens' GDataMedia (Maybe ByteString)
gdmBlobRef
= lens _gdmBlobRef (\ s a -> s{_gdmBlobRef = a}) .
mapping _Bytes
gdmPath :: Lens' GDataMedia (Maybe Text)
gdmPath = lens _gdmPath (\ s a -> s{_gdmPath = a})
gdmObjectId :: Lens' GDataMedia (Maybe GDataObjectId)
gdmObjectId
= lens _gdmObjectId (\ s a -> s{_gdmObjectId = a})
gdmToken :: Lens' GDataMedia (Maybe Text)
gdmToken = lens _gdmToken (\ s a -> s{_gdmToken = a})
gdmInline :: Lens' GDataMedia (Maybe ByteString)
gdmInline
= lens _gdmInline (\ s a -> s{_gdmInline = a}) .
mapping _Bytes
gdmMediaId :: Lens' GDataMedia (Maybe ByteString)
gdmMediaId
= lens _gdmMediaId (\ s a -> s{_gdmMediaId = a}) .
mapping _Bytes
gdmSha1Hash :: Lens' GDataMedia (Maybe ByteString)
gdmSha1Hash
= lens _gdmSha1Hash (\ s a -> s{_gdmSha1Hash = a}) .
mapping _Bytes
gdmHashVerified :: Lens' GDataMedia (Maybe Bool)
gdmHashVerified
= lens _gdmHashVerified
(\ s a -> s{_gdmHashVerified = a})
gdmContentTypeInfo :: Lens' GDataMedia (Maybe GDataContentTypeInfo)
gdmContentTypeInfo
= lens _gdmContentTypeInfo
(\ s a -> s{_gdmContentTypeInfo = a})
gdmAlgorithm :: Lens' GDataMedia (Maybe Text)
gdmAlgorithm
= lens _gdmAlgorithm (\ s a -> s{_gdmAlgorithm = a})
gdmDiffDownloadResponse :: Lens' GDataMedia (Maybe GDataDiffDownloadResponse)
gdmDiffDownloadResponse
= lens _gdmDiffDownloadResponse
(\ s a -> s{_gdmDiffDownloadResponse = a})
gdmDiffUploadResponse :: Lens' GDataMedia (Maybe GDataDiffUploadResponse)
gdmDiffUploadResponse
= lens _gdmDiffUploadResponse
(\ s a -> s{_gdmDiffUploadResponse = a})
gdmDiffChecksumsResponse :: Lens' GDataMedia (Maybe GDataDiffChecksumsResponse)
gdmDiffChecksumsResponse
= lens _gdmDiffChecksumsResponse
(\ s a -> s{_gdmDiffChecksumsResponse = a})
gdmBlobstore2Info :: Lens' GDataMedia (Maybe GDataBlobstore2Info)
gdmBlobstore2Info
= lens _gdmBlobstore2Info
(\ s a -> s{_gdmBlobstore2Info = a})
gdmReferenceType :: Lens' GDataMedia (Maybe GDataMediaReferenceType)
gdmReferenceType
= lens _gdmReferenceType
(\ s a -> s{_gdmReferenceType = a})
gdmTimestamp :: Lens' GDataMedia (Maybe Word64)
gdmTimestamp
= lens _gdmTimestamp (\ s a -> s{_gdmTimestamp = a})
. mapping _Coerce
gdmMD5Hash :: Lens' GDataMedia (Maybe ByteString)
gdmMD5Hash
= lens _gdmMD5Hash (\ s a -> s{_gdmMD5Hash = a}) .
mapping _Bytes
gdmDownloadParameters :: Lens' GDataMedia (Maybe GDataDownloadParameters)
gdmDownloadParameters
= lens _gdmDownloadParameters
(\ s a -> s{_gdmDownloadParameters = a})
gdmCosmoBinaryReference :: Lens' GDataMedia (Maybe ByteString)
gdmCosmoBinaryReference
= lens _gdmCosmoBinaryReference
(\ s a -> s{_gdmCosmoBinaryReference = a})
. mapping _Bytes
gdmFilename :: Lens' GDataMedia (Maybe Text)
gdmFilename
= lens _gdmFilename (\ s a -> s{_gdmFilename = a})
gdmSha256Hash :: Lens' GDataMedia (Maybe ByteString)
gdmSha256Hash
= lens _gdmSha256Hash
(\ s a -> s{_gdmSha256Hash = a})
. mapping _Bytes
gdmContentType :: Lens' GDataMedia (Maybe Text)
gdmContentType
= lens _gdmContentType
(\ s a -> s{_gdmContentType = a})
gdmCompositeMedia :: Lens' GDataMedia [GDataCompositeMedia]
gdmCompositeMedia
= lens _gdmCompositeMedia
(\ s a -> s{_gdmCompositeMedia = a})
. _Default
. _Coerce
instance FromJSON GDataMedia where
parseJSON
= withObject "GDataMedia"
(\ o ->
GDataMedia' <$>
(o .:? "length") <*> (o .:? "diffVersionResponse")
<*> (o .:? "diffUploadRequest")
<*> (o .:? "bigstoreObjectRef")
<*> (o .:? "hash")
<*> (o .:? "isPotentialRetry")
<*> (o .:? "crc32cHash")
<*> (o .:? "blobRef")
<*> (o .:? "path")
<*> (o .:? "objectId")
<*> (o .:? "token")
<*> (o .:? "inline")
<*> (o .:? "mediaId")
<*> (o .:? "sha1Hash")
<*> (o .:? "hashVerified")
<*> (o .:? "contentTypeInfo")
<*> (o .:? "algorithm")
<*> (o .:? "diffDownloadResponse")
<*> (o .:? "diffUploadResponse")
<*> (o .:? "diffChecksumsResponse")
<*> (o .:? "blobstore2Info")
<*> (o .:? "referenceType")
<*> (o .:? "timestamp")
<*> (o .:? "md5Hash")
<*> (o .:? "downloadParameters")
<*> (o .:? "cosmoBinaryReference")
<*> (o .:? "filename")
<*> (o .:? "sha256Hash")
<*> (o .:? "contentType")
<*> (o .:? "compositeMedia" .!= mempty))
instance ToJSON GDataMedia where
toJSON GDataMedia'{..}
= object
(catMaybes
[("length" .=) <$> _gdmLength,
("diffVersionResponse" .=) <$>
_gdmDiffVersionResponse,
("diffUploadRequest" .=) <$> _gdmDiffUploadRequest,
("bigstoreObjectRef" .=) <$> _gdmBigstoreObjectRef,
("hash" .=) <$> _gdmHash,
("isPotentialRetry" .=) <$> _gdmIsPotentialRetry,
("crc32cHash" .=) <$> _gdmCrc32cHash,
("blobRef" .=) <$> _gdmBlobRef,
("path" .=) <$> _gdmPath,
("objectId" .=) <$> _gdmObjectId,
("token" .=) <$> _gdmToken,
("inline" .=) <$> _gdmInline,
("mediaId" .=) <$> _gdmMediaId,
("sha1Hash" .=) <$> _gdmSha1Hash,
("hashVerified" .=) <$> _gdmHashVerified,
("contentTypeInfo" .=) <$> _gdmContentTypeInfo,
("algorithm" .=) <$> _gdmAlgorithm,
("diffDownloadResponse" .=) <$>
_gdmDiffDownloadResponse,
("diffUploadResponse" .=) <$> _gdmDiffUploadResponse,
("diffChecksumsResponse" .=) <$>
_gdmDiffChecksumsResponse,
("blobstore2Info" .=) <$> _gdmBlobstore2Info,
("referenceType" .=) <$> _gdmReferenceType,
("timestamp" .=) <$> _gdmTimestamp,
("md5Hash" .=) <$> _gdmMD5Hash,
("downloadParameters" .=) <$> _gdmDownloadParameters,
("cosmoBinaryReference" .=) <$>
_gdmCosmoBinaryReference,
("filename" .=) <$> _gdmFilename,
("sha256Hash" .=) <$> _gdmSha256Hash,
("contentType" .=) <$> _gdmContentType,
("compositeMedia" .=) <$> _gdmCompositeMedia])
data Report = Report'
{ _rJobId :: !(Maybe Text)
, _rStartTime :: !(Maybe DateTime')
, _rDownloadURL :: !(Maybe Text)
, _rEndTime :: !(Maybe DateTime')
, _rId :: !(Maybe Text)
, _rCreateTime :: !(Maybe DateTime')
, _rJobExpireTime :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
report
:: Report
report =
Report'
{ _rJobId = Nothing
, _rStartTime = Nothing
, _rDownloadURL = Nothing
, _rEndTime = Nothing
, _rId = Nothing
, _rCreateTime = Nothing
, _rJobExpireTime = Nothing
}
rJobId :: Lens' Report (Maybe Text)
rJobId = lens _rJobId (\ s a -> s{_rJobId = a})
rStartTime :: Lens' Report (Maybe UTCTime)
rStartTime
= lens _rStartTime (\ s a -> s{_rStartTime = a}) .
mapping _DateTime
rDownloadURL :: Lens' Report (Maybe Text)
rDownloadURL
= lens _rDownloadURL (\ s a -> s{_rDownloadURL = a})
rEndTime :: Lens' Report (Maybe UTCTime)
rEndTime
= lens _rEndTime (\ s a -> s{_rEndTime = a}) .
mapping _DateTime
rId :: Lens' Report (Maybe Text)
rId = lens _rId (\ s a -> s{_rId = a})
rCreateTime :: Lens' Report (Maybe UTCTime)
rCreateTime
= lens _rCreateTime (\ s a -> s{_rCreateTime = a}) .
mapping _DateTime
rJobExpireTime :: Lens' Report (Maybe UTCTime)
rJobExpireTime
= lens _rJobExpireTime
(\ s a -> s{_rJobExpireTime = a})
. mapping _DateTime
instance FromJSON Report where
parseJSON
= withObject "Report"
(\ o ->
Report' <$>
(o .:? "jobId") <*> (o .:? "startTime") <*>
(o .:? "downloadUrl")
<*> (o .:? "endTime")
<*> (o .:? "id")
<*> (o .:? "createTime")
<*> (o .:? "jobExpireTime"))
instance ToJSON Report where
toJSON Report'{..}
= object
(catMaybes
[("jobId" .=) <$> _rJobId,
("startTime" .=) <$> _rStartTime,
("downloadUrl" .=) <$> _rDownloadURL,
("endTime" .=) <$> _rEndTime, ("id" .=) <$> _rId,
("createTime" .=) <$> _rCreateTime,
("jobExpireTime" .=) <$> _rJobExpireTime])
data GDataCompositeMedia = GDataCompositeMedia'
{ _gdcmLength :: !(Maybe (Textual Int64))
, _gdcmCrc32cHash :: !(Maybe (Textual Word32))
, _gdcmBlobRef :: !(Maybe Bytes)
, _gdcmPath :: !(Maybe Text)
, _gdcmObjectId :: !(Maybe GDataObjectId)
, _gdcmInline :: !(Maybe Bytes)
, _gdcmSha1Hash :: !(Maybe Bytes)
, _gdcmBlobstore2Info :: !(Maybe GDataBlobstore2Info)
, _gdcmReferenceType :: !(Maybe GDataCompositeMediaReferenceType)
, _gdcmMD5Hash :: !(Maybe Bytes)
, _gdcmCosmoBinaryReference :: !(Maybe Bytes)
} deriving (Eq,Show,Data,Typeable,Generic)
gDataCompositeMedia
:: GDataCompositeMedia
gDataCompositeMedia =
GDataCompositeMedia'
{ _gdcmLength = Nothing
, _gdcmCrc32cHash = Nothing
, _gdcmBlobRef = Nothing
, _gdcmPath = Nothing
, _gdcmObjectId = Nothing
, _gdcmInline = Nothing
, _gdcmSha1Hash = Nothing
, _gdcmBlobstore2Info = Nothing
, _gdcmReferenceType = Nothing
, _gdcmMD5Hash = Nothing
, _gdcmCosmoBinaryReference = Nothing
}
gdcmLength :: Lens' GDataCompositeMedia (Maybe Int64)
gdcmLength
= lens _gdcmLength (\ s a -> s{_gdcmLength = a}) .
mapping _Coerce
gdcmCrc32cHash :: Lens' GDataCompositeMedia (Maybe Word32)
gdcmCrc32cHash
= lens _gdcmCrc32cHash
(\ s a -> s{_gdcmCrc32cHash = a})
. mapping _Coerce
gdcmBlobRef :: Lens' GDataCompositeMedia (Maybe ByteString)
gdcmBlobRef
= lens _gdcmBlobRef (\ s a -> s{_gdcmBlobRef = a}) .
mapping _Bytes
gdcmPath :: Lens' GDataCompositeMedia (Maybe Text)
gdcmPath = lens _gdcmPath (\ s a -> s{_gdcmPath = a})
gdcmObjectId :: Lens' GDataCompositeMedia (Maybe GDataObjectId)
gdcmObjectId
= lens _gdcmObjectId (\ s a -> s{_gdcmObjectId = a})
gdcmInline :: Lens' GDataCompositeMedia (Maybe ByteString)
gdcmInline
= lens _gdcmInline (\ s a -> s{_gdcmInline = a}) .
mapping _Bytes
gdcmSha1Hash :: Lens' GDataCompositeMedia (Maybe ByteString)
gdcmSha1Hash
= lens _gdcmSha1Hash (\ s a -> s{_gdcmSha1Hash = a})
. mapping _Bytes
gdcmBlobstore2Info :: Lens' GDataCompositeMedia (Maybe GDataBlobstore2Info)
gdcmBlobstore2Info
= lens _gdcmBlobstore2Info
(\ s a -> s{_gdcmBlobstore2Info = a})
gdcmReferenceType :: Lens' GDataCompositeMedia (Maybe GDataCompositeMediaReferenceType)
gdcmReferenceType
= lens _gdcmReferenceType
(\ s a -> s{_gdcmReferenceType = a})
gdcmMD5Hash :: Lens' GDataCompositeMedia (Maybe ByteString)
gdcmMD5Hash
= lens _gdcmMD5Hash (\ s a -> s{_gdcmMD5Hash = a}) .
mapping _Bytes
gdcmCosmoBinaryReference :: Lens' GDataCompositeMedia (Maybe ByteString)
gdcmCosmoBinaryReference
= lens _gdcmCosmoBinaryReference
(\ s a -> s{_gdcmCosmoBinaryReference = a})
. mapping _Bytes
instance FromJSON GDataCompositeMedia where
parseJSON
= withObject "GDataCompositeMedia"
(\ o ->
GDataCompositeMedia' <$>
(o .:? "length") <*> (o .:? "crc32cHash") <*>
(o .:? "blobRef")
<*> (o .:? "path")
<*> (o .:? "objectId")
<*> (o .:? "inline")
<*> (o .:? "sha1Hash")
<*> (o .:? "blobstore2Info")
<*> (o .:? "referenceType")
<*> (o .:? "md5Hash")
<*> (o .:? "cosmoBinaryReference"))
instance ToJSON GDataCompositeMedia where
toJSON GDataCompositeMedia'{..}
= object
(catMaybes
[("length" .=) <$> _gdcmLength,
("crc32cHash" .=) <$> _gdcmCrc32cHash,
("blobRef" .=) <$> _gdcmBlobRef,
("path" .=) <$> _gdcmPath,
("objectId" .=) <$> _gdcmObjectId,
("inline" .=) <$> _gdcmInline,
("sha1Hash" .=) <$> _gdcmSha1Hash,
("blobstore2Info" .=) <$> _gdcmBlobstore2Info,
("referenceType" .=) <$> _gdcmReferenceType,
("md5Hash" .=) <$> _gdcmMD5Hash,
("cosmoBinaryReference" .=) <$>
_gdcmCosmoBinaryReference])
data GDataDownloadParameters = GDataDownloadParameters'
{ _gddpIgnoreRange :: !(Maybe Bool)
, _gddpAllowGzipCompression :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
gDataDownloadParameters
:: GDataDownloadParameters
gDataDownloadParameters =
GDataDownloadParameters'
{ _gddpIgnoreRange = Nothing
, _gddpAllowGzipCompression = Nothing
}
gddpIgnoreRange :: Lens' GDataDownloadParameters (Maybe Bool)
gddpIgnoreRange
= lens _gddpIgnoreRange
(\ s a -> s{_gddpIgnoreRange = a})
gddpAllowGzipCompression :: Lens' GDataDownloadParameters (Maybe Bool)
gddpAllowGzipCompression
= lens _gddpAllowGzipCompression
(\ s a -> s{_gddpAllowGzipCompression = a})
instance FromJSON GDataDownloadParameters where
parseJSON
= withObject "GDataDownloadParameters"
(\ o ->
GDataDownloadParameters' <$>
(o .:? "ignoreRange") <*>
(o .:? "allowGzipCompression"))
instance ToJSON GDataDownloadParameters where
toJSON GDataDownloadParameters'{..}
= object
(catMaybes
[("ignoreRange" .=) <$> _gddpIgnoreRange,
("allowGzipCompression" .=) <$>
_gddpAllowGzipCompression])
data ListReportTypesResponse = ListReportTypesResponse'
{ _lrtrNextPageToken :: !(Maybe Text)
, _lrtrReportTypes :: !(Maybe [ReportType])
} deriving (Eq,Show,Data,Typeable,Generic)
listReportTypesResponse
:: ListReportTypesResponse
listReportTypesResponse =
ListReportTypesResponse'
{ _lrtrNextPageToken = Nothing
, _lrtrReportTypes = Nothing
}
lrtrNextPageToken :: Lens' ListReportTypesResponse (Maybe Text)
lrtrNextPageToken
= lens _lrtrNextPageToken
(\ s a -> s{_lrtrNextPageToken = a})
lrtrReportTypes :: Lens' ListReportTypesResponse [ReportType]
lrtrReportTypes
= lens _lrtrReportTypes
(\ s a -> s{_lrtrReportTypes = a})
. _Default
. _Coerce
instance FromJSON ListReportTypesResponse where
parseJSON
= withObject "ListReportTypesResponse"
(\ o ->
ListReportTypesResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "reportTypes" .!= mempty))
instance ToJSON ListReportTypesResponse where
toJSON ListReportTypesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lrtrNextPageToken,
("reportTypes" .=) <$> _lrtrReportTypes])
data GDataBlobstore2Info = GDataBlobstore2Info'
{ _gdbiBlobGeneration :: !(Maybe (Textual Int64))
, _gdbiBlobId :: !(Maybe Text)
, _gdbiReadToken :: !(Maybe Text)
, _gdbiDownloadReadHandle :: !(Maybe Bytes)
, _gdbiUploadMetadataContainer :: !(Maybe Bytes)
} deriving (Eq,Show,Data,Typeable,Generic)
gDataBlobstore2Info
:: GDataBlobstore2Info
gDataBlobstore2Info =
GDataBlobstore2Info'
{ _gdbiBlobGeneration = Nothing
, _gdbiBlobId = Nothing
, _gdbiReadToken = Nothing
, _gdbiDownloadReadHandle = Nothing
, _gdbiUploadMetadataContainer = Nothing
}
gdbiBlobGeneration :: Lens' GDataBlobstore2Info (Maybe Int64)
gdbiBlobGeneration
= lens _gdbiBlobGeneration
(\ s a -> s{_gdbiBlobGeneration = a})
. mapping _Coerce
gdbiBlobId :: Lens' GDataBlobstore2Info (Maybe Text)
gdbiBlobId
= lens _gdbiBlobId (\ s a -> s{_gdbiBlobId = a})
gdbiReadToken :: Lens' GDataBlobstore2Info (Maybe Text)
gdbiReadToken
= lens _gdbiReadToken
(\ s a -> s{_gdbiReadToken = a})
gdbiDownloadReadHandle :: Lens' GDataBlobstore2Info (Maybe ByteString)
gdbiDownloadReadHandle
= lens _gdbiDownloadReadHandle
(\ s a -> s{_gdbiDownloadReadHandle = a})
. mapping _Bytes
gdbiUploadMetadataContainer :: Lens' GDataBlobstore2Info (Maybe ByteString)
gdbiUploadMetadataContainer
= lens _gdbiUploadMetadataContainer
(\ s a -> s{_gdbiUploadMetadataContainer = a})
. mapping _Bytes
instance FromJSON GDataBlobstore2Info where
parseJSON
= withObject "GDataBlobstore2Info"
(\ o ->
GDataBlobstore2Info' <$>
(o .:? "blobGeneration") <*> (o .:? "blobId") <*>
(o .:? "readToken")
<*> (o .:? "downloadReadHandle")
<*> (o .:? "uploadMetadataContainer"))
instance ToJSON GDataBlobstore2Info where
toJSON GDataBlobstore2Info'{..}
= object
(catMaybes
[("blobGeneration" .=) <$> _gdbiBlobGeneration,
("blobId" .=) <$> _gdbiBlobId,
("readToken" .=) <$> _gdbiReadToken,
("downloadReadHandle" .=) <$>
_gdbiDownloadReadHandle,
("uploadMetadataContainer" .=) <$>
_gdbiUploadMetadataContainer])
data Job = Job'
{ _jName :: !(Maybe Text)
, _jId :: !(Maybe Text)
, _jSystemManaged :: !(Maybe Bool)
, _jReportTypeId :: !(Maybe Text)
, _jExpireTime :: !(Maybe DateTime')
, _jCreateTime :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
job
:: Job
job =
Job'
{ _jName = Nothing
, _jId = Nothing
, _jSystemManaged = Nothing
, _jReportTypeId = Nothing
, _jExpireTime = Nothing
, _jCreateTime = Nothing
}
jName :: Lens' Job (Maybe Text)
jName = lens _jName (\ s a -> s{_jName = a})
jId :: Lens' Job (Maybe Text)
jId = lens _jId (\ s a -> s{_jId = a})
jSystemManaged :: Lens' Job (Maybe Bool)
jSystemManaged
= lens _jSystemManaged
(\ s a -> s{_jSystemManaged = a})
jReportTypeId :: Lens' Job (Maybe Text)
jReportTypeId
= lens _jReportTypeId
(\ s a -> s{_jReportTypeId = a})
jExpireTime :: Lens' Job (Maybe UTCTime)
jExpireTime
= lens _jExpireTime (\ s a -> s{_jExpireTime = a}) .
mapping _DateTime
jCreateTime :: Lens' Job (Maybe UTCTime)
jCreateTime
= lens _jCreateTime (\ s a -> s{_jCreateTime = a}) .
mapping _DateTime
instance FromJSON Job where
parseJSON
= withObject "Job"
(\ o ->
Job' <$>
(o .:? "name") <*> (o .:? "id") <*>
(o .:? "systemManaged")
<*> (o .:? "reportTypeId")
<*> (o .:? "expireTime")
<*> (o .:? "createTime"))
instance ToJSON Job where
toJSON Job'{..}
= object
(catMaybes
[("name" .=) <$> _jName, ("id" .=) <$> _jId,
("systemManaged" .=) <$> _jSystemManaged,
("reportTypeId" .=) <$> _jReportTypeId,
("expireTime" .=) <$> _jExpireTime,
("createTime" .=) <$> _jCreateTime])
data GDataDiffUploadResponse = GDataDiffUploadResponse'
{ _gddurOriginalObject :: !(Maybe GDataCompositeMedia)
, _gddurObjectVersion :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
gDataDiffUploadResponse
:: GDataDiffUploadResponse
gDataDiffUploadResponse =
GDataDiffUploadResponse'
{ _gddurOriginalObject = Nothing
, _gddurObjectVersion = Nothing
}
gddurOriginalObject :: Lens' GDataDiffUploadResponse (Maybe GDataCompositeMedia)
gddurOriginalObject
= lens _gddurOriginalObject
(\ s a -> s{_gddurOriginalObject = a})
gddurObjectVersion :: Lens' GDataDiffUploadResponse (Maybe Text)
gddurObjectVersion
= lens _gddurObjectVersion
(\ s a -> s{_gddurObjectVersion = a})
instance FromJSON GDataDiffUploadResponse where
parseJSON
= withObject "GDataDiffUploadResponse"
(\ o ->
GDataDiffUploadResponse' <$>
(o .:? "originalObject") <*> (o .:? "objectVersion"))
instance ToJSON GDataDiffUploadResponse where
toJSON GDataDiffUploadResponse'{..}
= object
(catMaybes
[("originalObject" .=) <$> _gddurOriginalObject,
("objectVersion" .=) <$> _gddurObjectVersion])
newtype GDataDiffDownloadResponse = GDataDiffDownloadResponse'
{ _gdddrObjectLocation :: Maybe GDataCompositeMedia
} deriving (Eq,Show,Data,Typeable,Generic)
gDataDiffDownloadResponse
:: GDataDiffDownloadResponse
gDataDiffDownloadResponse =
GDataDiffDownloadResponse'
{ _gdddrObjectLocation = Nothing
}
gdddrObjectLocation :: Lens' GDataDiffDownloadResponse (Maybe GDataCompositeMedia)
gdddrObjectLocation
= lens _gdddrObjectLocation
(\ s a -> s{_gdddrObjectLocation = a})
instance FromJSON GDataDiffDownloadResponse where
parseJSON
= withObject "GDataDiffDownloadResponse"
(\ o ->
GDataDiffDownloadResponse' <$>
(o .:? "objectLocation"))
instance ToJSON GDataDiffDownloadResponse where
toJSON GDataDiffDownloadResponse'{..}
= object
(catMaybes
[("objectLocation" .=) <$> _gdddrObjectLocation])
data ListJobsResponse = ListJobsResponse'
{ _ljrNextPageToken :: !(Maybe Text)
, _ljrJobs :: !(Maybe [Job])
} deriving (Eq,Show,Data,Typeable,Generic)
listJobsResponse
:: ListJobsResponse
listJobsResponse =
ListJobsResponse'
{ _ljrNextPageToken = Nothing
, _ljrJobs = Nothing
}
ljrNextPageToken :: Lens' ListJobsResponse (Maybe Text)
ljrNextPageToken
= lens _ljrNextPageToken
(\ s a -> s{_ljrNextPageToken = a})
ljrJobs :: Lens' ListJobsResponse [Job]
ljrJobs
= lens _ljrJobs (\ s a -> s{_ljrJobs = a}) . _Default
. _Coerce
instance FromJSON ListJobsResponse where
parseJSON
= withObject "ListJobsResponse"
(\ o ->
ListJobsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "jobs" .!= mempty))
instance ToJSON ListJobsResponse where
toJSON ListJobsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _ljrNextPageToken,
("jobs" .=) <$> _ljrJobs])
data GDataDiffUploadRequest = GDataDiffUploadRequest'
{ _gChecksumsInfo :: !(Maybe GDataCompositeMedia)
, _gObjectVersion :: !(Maybe Text)
, _gObjectInfo :: !(Maybe GDataCompositeMedia)
} deriving (Eq,Show,Data,Typeable,Generic)
gDataDiffUploadRequest
:: GDataDiffUploadRequest
gDataDiffUploadRequest =
GDataDiffUploadRequest'
{ _gChecksumsInfo = Nothing
, _gObjectVersion = Nothing
, _gObjectInfo = Nothing
}
gChecksumsInfo :: Lens' GDataDiffUploadRequest (Maybe GDataCompositeMedia)
gChecksumsInfo
= lens _gChecksumsInfo
(\ s a -> s{_gChecksumsInfo = a})
gObjectVersion :: Lens' GDataDiffUploadRequest (Maybe Text)
gObjectVersion
= lens _gObjectVersion
(\ s a -> s{_gObjectVersion = a})
gObjectInfo :: Lens' GDataDiffUploadRequest (Maybe GDataCompositeMedia)
gObjectInfo
= lens _gObjectInfo (\ s a -> s{_gObjectInfo = a})
instance FromJSON GDataDiffUploadRequest where
parseJSON
= withObject "GDataDiffUploadRequest"
(\ o ->
GDataDiffUploadRequest' <$>
(o .:? "checksumsInfo") <*> (o .:? "objectVersion")
<*> (o .:? "objectInfo"))
instance ToJSON GDataDiffUploadRequest where
toJSON GDataDiffUploadRequest'{..}
= object
(catMaybes
[("checksumsInfo" .=) <$> _gChecksumsInfo,
("objectVersion" .=) <$> _gObjectVersion,
("objectInfo" .=) <$> _gObjectInfo])
data GDataDiffVersionResponse = GDataDiffVersionResponse'
{ _gddvrObjectSizeBytes :: !(Maybe (Textual Int64))
, _gddvrObjectVersion :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
gDataDiffVersionResponse
:: GDataDiffVersionResponse
gDataDiffVersionResponse =
GDataDiffVersionResponse'
{ _gddvrObjectSizeBytes = Nothing
, _gddvrObjectVersion = Nothing
}
gddvrObjectSizeBytes :: Lens' GDataDiffVersionResponse (Maybe Int64)
gddvrObjectSizeBytes
= lens _gddvrObjectSizeBytes
(\ s a -> s{_gddvrObjectSizeBytes = a})
. mapping _Coerce
gddvrObjectVersion :: Lens' GDataDiffVersionResponse (Maybe Text)
gddvrObjectVersion
= lens _gddvrObjectVersion
(\ s a -> s{_gddvrObjectVersion = a})
instance FromJSON GDataDiffVersionResponse where
parseJSON
= withObject "GDataDiffVersionResponse"
(\ o ->
GDataDiffVersionResponse' <$>
(o .:? "objectSizeBytes") <*>
(o .:? "objectVersion"))
instance ToJSON GDataDiffVersionResponse where
toJSON GDataDiffVersionResponse'{..}
= object
(catMaybes
[("objectSizeBytes" .=) <$> _gddvrObjectSizeBytes,
("objectVersion" .=) <$> _gddvrObjectVersion])
data ReportType = ReportType'
{ _rtName :: !(Maybe Text)
, _rtId :: !(Maybe Text)
, _rtDeprecateTime :: !(Maybe DateTime')
, _rtSystemManaged :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
reportType
:: ReportType
reportType =
ReportType'
{ _rtName = Nothing
, _rtId = Nothing
, _rtDeprecateTime = Nothing
, _rtSystemManaged = Nothing
}
rtName :: Lens' ReportType (Maybe Text)
rtName = lens _rtName (\ s a -> s{_rtName = a})
rtId :: Lens' ReportType (Maybe Text)
rtId = lens _rtId (\ s a -> s{_rtId = a})
rtDeprecateTime :: Lens' ReportType (Maybe UTCTime)
rtDeprecateTime
= lens _rtDeprecateTime
(\ s a -> s{_rtDeprecateTime = a})
. mapping _DateTime
rtSystemManaged :: Lens' ReportType (Maybe Bool)
rtSystemManaged
= lens _rtSystemManaged
(\ s a -> s{_rtSystemManaged = a})
instance FromJSON ReportType where
parseJSON
= withObject "ReportType"
(\ o ->
ReportType' <$>
(o .:? "name") <*> (o .:? "id") <*>
(o .:? "deprecateTime")
<*> (o .:? "systemManaged"))
instance ToJSON ReportType where
toJSON ReportType'{..}
= object
(catMaybes
[("name" .=) <$> _rtName, ("id" .=) <$> _rtId,
("deprecateTime" .=) <$> _rtDeprecateTime,
("systemManaged" .=) <$> _rtSystemManaged])