{-# 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.Storage.Types.Product where
import Network.Google.Prelude
import Network.Google.Storage.Types.Sum
data ObjectOwner = ObjectOwner'
{ _ooEntity :: !(Maybe Text)
, _ooEntityId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
objectOwner
:: ObjectOwner
objectOwner =
ObjectOwner'
{ _ooEntity = Nothing
, _ooEntityId = Nothing
}
ooEntity :: Lens' ObjectOwner (Maybe Text)
ooEntity = lens _ooEntity (\ s a -> s{_ooEntity = a})
ooEntityId :: Lens' ObjectOwner (Maybe Text)
ooEntityId
= lens _ooEntityId (\ s a -> s{_ooEntityId = a})
instance FromJSON ObjectOwner where
parseJSON
= withObject "ObjectOwner"
(\ o ->
ObjectOwner' <$>
(o .:? "entity") <*> (o .:? "entityId"))
instance ToJSON ObjectOwner where
toJSON ObjectOwner'{..}
= object
(catMaybes
[("entity" .=) <$> _ooEntity,
("entityId" .=) <$> _ooEntityId])
newtype BucketVersioning = BucketVersioning'
{ _bvEnabled :: Maybe Bool
} deriving (Eq,Show,Data,Typeable,Generic)
bucketVersioning
:: BucketVersioning
bucketVersioning =
BucketVersioning'
{ _bvEnabled = Nothing
}
bvEnabled :: Lens' BucketVersioning (Maybe Bool)
bvEnabled
= lens _bvEnabled (\ s a -> s{_bvEnabled = a})
instance FromJSON BucketVersioning where
parseJSON
= withObject "BucketVersioning"
(\ o -> BucketVersioning' <$> (o .:? "enabled"))
instance ToJSON BucketVersioning where
toJSON BucketVersioning'{..}
= object (catMaybes [("enabled" .=) <$> _bvEnabled])
data BucketRetentionPolicy = BucketRetentionPolicy'
{ _brpRetentionPeriod :: !(Maybe (Textual Int64))
, _brpEffectiveTime :: !(Maybe DateTime')
, _brpIsLocked :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
bucketRetentionPolicy
:: BucketRetentionPolicy
bucketRetentionPolicy =
BucketRetentionPolicy'
{ _brpRetentionPeriod = Nothing
, _brpEffectiveTime = Nothing
, _brpIsLocked = Nothing
}
brpRetentionPeriod :: Lens' BucketRetentionPolicy (Maybe Int64)
brpRetentionPeriod
= lens _brpRetentionPeriod
(\ s a -> s{_brpRetentionPeriod = a})
. mapping _Coerce
brpEffectiveTime :: Lens' BucketRetentionPolicy (Maybe UTCTime)
brpEffectiveTime
= lens _brpEffectiveTime
(\ s a -> s{_brpEffectiveTime = a})
. mapping _DateTime
brpIsLocked :: Lens' BucketRetentionPolicy (Maybe Bool)
brpIsLocked
= lens _brpIsLocked (\ s a -> s{_brpIsLocked = a})
instance FromJSON BucketRetentionPolicy where
parseJSON
= withObject "BucketRetentionPolicy"
(\ o ->
BucketRetentionPolicy' <$>
(o .:? "retentionPeriod") <*> (o .:? "effectiveTime")
<*> (o .:? "isLocked"))
instance ToJSON BucketRetentionPolicy where
toJSON BucketRetentionPolicy'{..}
= object
(catMaybes
[("retentionPeriod" .=) <$> _brpRetentionPeriod,
("effectiveTime" .=) <$> _brpEffectiveTime,
("isLocked" .=) <$> _brpIsLocked])
data Buckets = Buckets'
{ _bNextPageToken :: !(Maybe Text)
, _bKind :: !Text
, _bItems :: !(Maybe [Bucket])
} deriving (Eq,Show,Data,Typeable,Generic)
buckets
:: Buckets
buckets =
Buckets'
{ _bNextPageToken = Nothing
, _bKind = "storage#buckets"
, _bItems = Nothing
}
bNextPageToken :: Lens' Buckets (Maybe Text)
bNextPageToken
= lens _bNextPageToken
(\ s a -> s{_bNextPageToken = a})
bKind :: Lens' Buckets Text
bKind = lens _bKind (\ s a -> s{_bKind = a})
bItems :: Lens' Buckets [Bucket]
bItems
= lens _bItems (\ s a -> s{_bItems = a}) . _Default .
_Coerce
instance FromJSON Buckets where
parseJSON
= withObject "Buckets"
(\ o ->
Buckets' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "storage#buckets")
<*> (o .:? "items" .!= mempty))
instance ToJSON Buckets where
toJSON Buckets'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _bNextPageToken,
Just ("kind" .= _bKind), ("items" .=) <$> _bItems])
newtype BucketBilling = BucketBilling'
{ _bbRequesterPays :: Maybe Bool
} deriving (Eq,Show,Data,Typeable,Generic)
bucketBilling
:: BucketBilling
bucketBilling =
BucketBilling'
{ _bbRequesterPays = Nothing
}
bbRequesterPays :: Lens' BucketBilling (Maybe Bool)
bbRequesterPays
= lens _bbRequesterPays
(\ s a -> s{_bbRequesterPays = a})
instance FromJSON BucketBilling where
parseJSON
= withObject "BucketBilling"
(\ o -> BucketBilling' <$> (o .:? "requesterPays"))
instance ToJSON BucketBilling where
toJSON BucketBilling'{..}
= object
(catMaybes
[("requesterPays" .=) <$> _bbRequesterPays])
data Notification = Notification'
{ _nEtag :: !(Maybe Text)
, _nObjectNamePrefix :: !(Maybe Text)
, _nPayloadFormat :: !Text
, _nEventTypes :: !(Maybe [Text])
, _nKind :: !Text
, _nTopic :: !(Maybe Text)
, _nSelfLink :: !(Maybe Text)
, _nId :: !(Maybe Text)
, _nCustomAttributes :: !(Maybe NotificationCustom_attributes)
} deriving (Eq,Show,Data,Typeable,Generic)
notification
:: Notification
notification =
Notification'
{ _nEtag = Nothing
, _nObjectNamePrefix = Nothing
, _nPayloadFormat = "JSON_API_V1"
, _nEventTypes = Nothing
, _nKind = "storage#notification"
, _nTopic = Nothing
, _nSelfLink = Nothing
, _nId = Nothing
, _nCustomAttributes = Nothing
}
nEtag :: Lens' Notification (Maybe Text)
nEtag = lens _nEtag (\ s a -> s{_nEtag = a})
nObjectNamePrefix :: Lens' Notification (Maybe Text)
nObjectNamePrefix
= lens _nObjectNamePrefix
(\ s a -> s{_nObjectNamePrefix = a})
nPayloadFormat :: Lens' Notification Text
nPayloadFormat
= lens _nPayloadFormat
(\ s a -> s{_nPayloadFormat = a})
nEventTypes :: Lens' Notification [Text]
nEventTypes
= lens _nEventTypes (\ s a -> s{_nEventTypes = a}) .
_Default
. _Coerce
nKind :: Lens' Notification Text
nKind = lens _nKind (\ s a -> s{_nKind = a})
nTopic :: Lens' Notification (Maybe Text)
nTopic = lens _nTopic (\ s a -> s{_nTopic = a})
nSelfLink :: Lens' Notification (Maybe Text)
nSelfLink
= lens _nSelfLink (\ s a -> s{_nSelfLink = a})
nId :: Lens' Notification (Maybe Text)
nId = lens _nId (\ s a -> s{_nId = a})
nCustomAttributes :: Lens' Notification (Maybe NotificationCustom_attributes)
nCustomAttributes
= lens _nCustomAttributes
(\ s a -> s{_nCustomAttributes = a})
instance FromJSON Notification where
parseJSON
= withObject "Notification"
(\ o ->
Notification' <$>
(o .:? "etag") <*> (o .:? "object_name_prefix") <*>
(o .:? "payload_format" .!= "JSON_API_V1")
<*> (o .:? "event_types" .!= mempty)
<*> (o .:? "kind" .!= "storage#notification")
<*> (o .:? "topic")
<*> (o .:? "selfLink")
<*> (o .:? "id")
<*> (o .:? "custom_attributes"))
instance ToJSON Notification where
toJSON Notification'{..}
= object
(catMaybes
[("etag" .=) <$> _nEtag,
("object_name_prefix" .=) <$> _nObjectNamePrefix,
Just ("payload_format" .= _nPayloadFormat),
("event_types" .=) <$> _nEventTypes,
Just ("kind" .= _nKind), ("topic" .=) <$> _nTopic,
("selfLink" .=) <$> _nSelfLink, ("id" .=) <$> _nId,
("custom_attributes" .=) <$> _nCustomAttributes])
data BucketLogging = BucketLogging'
{ _blLogBucket :: !(Maybe Text)
, _blLogObjectPrefix :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
bucketLogging
:: BucketLogging
bucketLogging =
BucketLogging'
{ _blLogBucket = Nothing
, _blLogObjectPrefix = Nothing
}
blLogBucket :: Lens' BucketLogging (Maybe Text)
blLogBucket
= lens _blLogBucket (\ s a -> s{_blLogBucket = a})
blLogObjectPrefix :: Lens' BucketLogging (Maybe Text)
blLogObjectPrefix
= lens _blLogObjectPrefix
(\ s a -> s{_blLogObjectPrefix = a})
instance FromJSON BucketLogging where
parseJSON
= withObject "BucketLogging"
(\ o ->
BucketLogging' <$>
(o .:? "logBucket") <*> (o .:? "logObjectPrefix"))
instance ToJSON BucketLogging where
toJSON BucketLogging'{..}
= object
(catMaybes
[("logBucket" .=) <$> _blLogBucket,
("logObjectPrefix" .=) <$> _blLogObjectPrefix])
newtype ObjectMetadata = ObjectMetadata'
{ _omAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
objectMetadata
:: HashMap Text Text
-> ObjectMetadata
objectMetadata pOmAddtional_ =
ObjectMetadata'
{ _omAddtional = _Coerce # pOmAddtional_
}
omAddtional :: Lens' ObjectMetadata (HashMap Text Text)
omAddtional
= lens _omAddtional (\ s a -> s{_omAddtional = a}) .
_Coerce
instance FromJSON ObjectMetadata where
parseJSON
= withObject "ObjectMetadata"
(\ o -> ObjectMetadata' <$> (parseJSONObject o))
instance ToJSON ObjectMetadata where
toJSON = toJSON . _omAddtional
data BucketLifecycleRuleItemCondition = BucketLifecycleRuleItemCondition'
{ _blricAge :: !(Maybe (Textual Int32))
, _blricIsLive :: !(Maybe Bool)
, _blricNumNewerVersions :: !(Maybe (Textual Int32))
, _blricMatchesStorageClass :: !(Maybe [Text])
, _blricMatchesPattern :: !(Maybe Text)
, _blricCreatedBefore :: !(Maybe Date')
} deriving (Eq,Show,Data,Typeable,Generic)
bucketLifecycleRuleItemCondition
:: BucketLifecycleRuleItemCondition
bucketLifecycleRuleItemCondition =
BucketLifecycleRuleItemCondition'
{ _blricAge = Nothing
, _blricIsLive = Nothing
, _blricNumNewerVersions = Nothing
, _blricMatchesStorageClass = Nothing
, _blricMatchesPattern = Nothing
, _blricCreatedBefore = Nothing
}
blricAge :: Lens' BucketLifecycleRuleItemCondition (Maybe Int32)
blricAge
= lens _blricAge (\ s a -> s{_blricAge = a}) .
mapping _Coerce
blricIsLive :: Lens' BucketLifecycleRuleItemCondition (Maybe Bool)
blricIsLive
= lens _blricIsLive (\ s a -> s{_blricIsLive = a})
blricNumNewerVersions :: Lens' BucketLifecycleRuleItemCondition (Maybe Int32)
blricNumNewerVersions
= lens _blricNumNewerVersions
(\ s a -> s{_blricNumNewerVersions = a})
. mapping _Coerce
blricMatchesStorageClass :: Lens' BucketLifecycleRuleItemCondition [Text]
blricMatchesStorageClass
= lens _blricMatchesStorageClass
(\ s a -> s{_blricMatchesStorageClass = a})
. _Default
. _Coerce
blricMatchesPattern :: Lens' BucketLifecycleRuleItemCondition (Maybe Text)
blricMatchesPattern
= lens _blricMatchesPattern
(\ s a -> s{_blricMatchesPattern = a})
blricCreatedBefore :: Lens' BucketLifecycleRuleItemCondition (Maybe Day)
blricCreatedBefore
= lens _blricCreatedBefore
(\ s a -> s{_blricCreatedBefore = a})
. mapping _Date
instance FromJSON BucketLifecycleRuleItemCondition
where
parseJSON
= withObject "BucketLifecycleRuleItemCondition"
(\ o ->
BucketLifecycleRuleItemCondition' <$>
(o .:? "age") <*> (o .:? "isLive") <*>
(o .:? "numNewerVersions")
<*> (o .:? "matchesStorageClass" .!= mempty)
<*> (o .:? "matchesPattern")
<*> (o .:? "createdBefore"))
instance ToJSON BucketLifecycleRuleItemCondition
where
toJSON BucketLifecycleRuleItemCondition'{..}
= object
(catMaybes
[("age" .=) <$> _blricAge,
("isLive" .=) <$> _blricIsLive,
("numNewerVersions" .=) <$> _blricNumNewerVersions,
("matchesStorageClass" .=) <$>
_blricMatchesStorageClass,
("matchesPattern" .=) <$> _blricMatchesPattern,
("createdBefore" .=) <$> _blricCreatedBefore])
newtype BucketLifecycle = BucketLifecycle'
{ _blRule :: Maybe [BucketLifecycleRuleItem]
} deriving (Eq,Show,Data,Typeable,Generic)
bucketLifecycle
:: BucketLifecycle
bucketLifecycle =
BucketLifecycle'
{ _blRule = Nothing
}
blRule :: Lens' BucketLifecycle [BucketLifecycleRuleItem]
blRule
= lens _blRule (\ s a -> s{_blRule = a}) . _Default .
_Coerce
instance FromJSON BucketLifecycle where
parseJSON
= withObject "BucketLifecycle"
(\ o ->
BucketLifecycle' <$> (o .:? "rule" .!= mempty))
instance ToJSON BucketLifecycle where
toJSON BucketLifecycle'{..}
= object (catMaybes [("rule" .=) <$> _blRule])
newtype BucketLabels = BucketLabels'
{ _blAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
bucketLabels
:: HashMap Text Text
-> BucketLabels
bucketLabels pBlAddtional_ =
BucketLabels'
{ _blAddtional = _Coerce # pBlAddtional_
}
blAddtional :: Lens' BucketLabels (HashMap Text Text)
blAddtional
= lens _blAddtional (\ s a -> s{_blAddtional = a}) .
_Coerce
instance FromJSON BucketLabels where
parseJSON
= withObject "BucketLabels"
(\ o -> BucketLabels' <$> (parseJSONObject o))
instance ToJSON BucketLabels where
toJSON = toJSON . _blAddtional
data Channel = Channel'
{ _cResourceURI :: !(Maybe Text)
, _cResourceId :: !(Maybe Text)
, _cKind :: !Text
, _cExpiration :: !(Maybe (Textual Int64))
, _cToken :: !(Maybe Text)
, _cAddress :: !(Maybe Text)
, _cPayload :: !(Maybe Bool)
, _cParams :: !(Maybe ChannelParams)
, _cId :: !(Maybe Text)
, _cType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
channel
:: Channel
channel =
Channel'
{ _cResourceURI = Nothing
, _cResourceId = Nothing
, _cKind = "api#channel"
, _cExpiration = Nothing
, _cToken = Nothing
, _cAddress = Nothing
, _cPayload = Nothing
, _cParams = Nothing
, _cId = Nothing
, _cType = Nothing
}
cResourceURI :: Lens' Channel (Maybe Text)
cResourceURI
= lens _cResourceURI (\ s a -> s{_cResourceURI = a})
cResourceId :: Lens' Channel (Maybe Text)
cResourceId
= lens _cResourceId (\ s a -> s{_cResourceId = a})
cKind :: Lens' Channel Text
cKind = lens _cKind (\ s a -> s{_cKind = a})
cExpiration :: Lens' Channel (Maybe Int64)
cExpiration
= lens _cExpiration (\ s a -> s{_cExpiration = a}) .
mapping _Coerce
cToken :: Lens' Channel (Maybe Text)
cToken = lens _cToken (\ s a -> s{_cToken = a})
cAddress :: Lens' Channel (Maybe Text)
cAddress = lens _cAddress (\ s a -> s{_cAddress = a})
cPayload :: Lens' Channel (Maybe Bool)
cPayload = lens _cPayload (\ s a -> s{_cPayload = a})
cParams :: Lens' Channel (Maybe ChannelParams)
cParams = lens _cParams (\ s a -> s{_cParams = a})
cId :: Lens' Channel (Maybe Text)
cId = lens _cId (\ s a -> s{_cId = a})
cType :: Lens' Channel (Maybe Text)
cType = lens _cType (\ s a -> s{_cType = a})
instance FromJSON Channel where
parseJSON
= withObject "Channel"
(\ o ->
Channel' <$>
(o .:? "resourceUri") <*> (o .:? "resourceId") <*>
(o .:? "kind" .!= "api#channel")
<*> (o .:? "expiration")
<*> (o .:? "token")
<*> (o .:? "address")
<*> (o .:? "payload")
<*> (o .:? "params")
<*> (o .:? "id")
<*> (o .:? "type"))
instance ToJSON Channel where
toJSON Channel'{..}
= object
(catMaybes
[("resourceUri" .=) <$> _cResourceURI,
("resourceId" .=) <$> _cResourceId,
Just ("kind" .= _cKind),
("expiration" .=) <$> _cExpiration,
("token" .=) <$> _cToken,
("address" .=) <$> _cAddress,
("payload" .=) <$> _cPayload,
("params" .=) <$> _cParams, ("id" .=) <$> _cId,
("type" .=) <$> _cType])
data BucketLifecycleRuleItem = BucketLifecycleRuleItem'
{ _blriAction :: !(Maybe BucketLifecycleRuleItemAction)
, _blriCondition :: !(Maybe BucketLifecycleRuleItemCondition)
} deriving (Eq,Show,Data,Typeable,Generic)
bucketLifecycleRuleItem
:: BucketLifecycleRuleItem
bucketLifecycleRuleItem =
BucketLifecycleRuleItem'
{ _blriAction = Nothing
, _blriCondition = Nothing
}
blriAction :: Lens' BucketLifecycleRuleItem (Maybe BucketLifecycleRuleItemAction)
blriAction
= lens _blriAction (\ s a -> s{_blriAction = a})
blriCondition :: Lens' BucketLifecycleRuleItem (Maybe BucketLifecycleRuleItemCondition)
blriCondition
= lens _blriCondition
(\ s a -> s{_blriCondition = a})
instance FromJSON BucketLifecycleRuleItem where
parseJSON
= withObject "BucketLifecycleRuleItem"
(\ o ->
BucketLifecycleRuleItem' <$>
(o .:? "action") <*> (o .:? "condition"))
instance ToJSON BucketLifecycleRuleItem where
toJSON BucketLifecycleRuleItem'{..}
= object
(catMaybes
[("action" .=) <$> _blriAction,
("condition" .=) <$> _blriCondition])
data BucketCORSItem = BucketCORSItem'
{ _bciMaxAgeSeconds :: !(Maybe (Textual Int32))
, _bciOrigin :: !(Maybe [Text])
, _bciResponseHeader :: !(Maybe [Text])
, _bciMethod :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
bucketCORSItem
:: BucketCORSItem
bucketCORSItem =
BucketCORSItem'
{ _bciMaxAgeSeconds = Nothing
, _bciOrigin = Nothing
, _bciResponseHeader = Nothing
, _bciMethod = Nothing
}
bciMaxAgeSeconds :: Lens' BucketCORSItem (Maybe Int32)
bciMaxAgeSeconds
= lens _bciMaxAgeSeconds
(\ s a -> s{_bciMaxAgeSeconds = a})
. mapping _Coerce
bciOrigin :: Lens' BucketCORSItem [Text]
bciOrigin
= lens _bciOrigin (\ s a -> s{_bciOrigin = a}) .
_Default
. _Coerce
bciResponseHeader :: Lens' BucketCORSItem [Text]
bciResponseHeader
= lens _bciResponseHeader
(\ s a -> s{_bciResponseHeader = a})
. _Default
. _Coerce
bciMethod :: Lens' BucketCORSItem [Text]
bciMethod
= lens _bciMethod (\ s a -> s{_bciMethod = a}) .
_Default
. _Coerce
instance FromJSON BucketCORSItem where
parseJSON
= withObject "BucketCORSItem"
(\ o ->
BucketCORSItem' <$>
(o .:? "maxAgeSeconds") <*>
(o .:? "origin" .!= mempty)
<*> (o .:? "responseHeader" .!= mempty)
<*> (o .:? "method" .!= mempty))
instance ToJSON BucketCORSItem where
toJSON BucketCORSItem'{..}
= object
(catMaybes
[("maxAgeSeconds" .=) <$> _bciMaxAgeSeconds,
("origin" .=) <$> _bciOrigin,
("responseHeader" .=) <$> _bciResponseHeader,
("method" .=) <$> _bciMethod])
data ObjectAccessControlProjectTeam = ObjectAccessControlProjectTeam'
{ _oacptProjectNumber :: !(Maybe Text)
, _oacptTeam :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
objectAccessControlProjectTeam
:: ObjectAccessControlProjectTeam
objectAccessControlProjectTeam =
ObjectAccessControlProjectTeam'
{ _oacptProjectNumber = Nothing
, _oacptTeam = Nothing
}
oacptProjectNumber :: Lens' ObjectAccessControlProjectTeam (Maybe Text)
oacptProjectNumber
= lens _oacptProjectNumber
(\ s a -> s{_oacptProjectNumber = a})
oacptTeam :: Lens' ObjectAccessControlProjectTeam (Maybe Text)
oacptTeam
= lens _oacptTeam (\ s a -> s{_oacptTeam = a})
instance FromJSON ObjectAccessControlProjectTeam
where
parseJSON
= withObject "ObjectAccessControlProjectTeam"
(\ o ->
ObjectAccessControlProjectTeam' <$>
(o .:? "projectNumber") <*> (o .:? "team"))
instance ToJSON ObjectAccessControlProjectTeam where
toJSON ObjectAccessControlProjectTeam'{..}
= object
(catMaybes
[("projectNumber" .=) <$> _oacptProjectNumber,
("team" .=) <$> _oacptTeam])
data ObjectCustomerEncryption = ObjectCustomerEncryption'
{ _oceKeySha256 :: !(Maybe Text)
, _oceEncryptionAlgorithm :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
objectCustomerEncryption
:: ObjectCustomerEncryption
objectCustomerEncryption =
ObjectCustomerEncryption'
{ _oceKeySha256 = Nothing
, _oceEncryptionAlgorithm = Nothing
}
oceKeySha256 :: Lens' ObjectCustomerEncryption (Maybe Text)
oceKeySha256
= lens _oceKeySha256 (\ s a -> s{_oceKeySha256 = a})
oceEncryptionAlgorithm :: Lens' ObjectCustomerEncryption (Maybe Text)
oceEncryptionAlgorithm
= lens _oceEncryptionAlgorithm
(\ s a -> s{_oceEncryptionAlgorithm = a})
instance FromJSON ObjectCustomerEncryption where
parseJSON
= withObject "ObjectCustomerEncryption"
(\ o ->
ObjectCustomerEncryption' <$>
(o .:? "keySha256") <*>
(o .:? "encryptionAlgorithm"))
instance ToJSON ObjectCustomerEncryption where
toJSON ObjectCustomerEncryption'{..}
= object
(catMaybes
[("keySha256" .=) <$> _oceKeySha256,
("encryptionAlgorithm" .=) <$>
_oceEncryptionAlgorithm])
data Bucket = Bucket'
{ _bucEtag :: !(Maybe Text)
, _bucLocation :: !(Maybe Text)
, _bucIAMConfiguration :: !(Maybe BucketIAMConfiguration)
, _bucKind :: !Text
, _bucWebsite :: !(Maybe BucketWebsite)
, _bucProjectNumber :: !(Maybe (Textual Word64))
, _bucLifecycle :: !(Maybe BucketLifecycle)
, _bucOwner :: !(Maybe BucketOwner)
, _bucRetentionPolicy :: !(Maybe BucketRetentionPolicy)
, _bucSelfLink :: !(Maybe Text)
, _bucName :: !(Maybe Text)
, _bucEncryption :: !(Maybe BucketEncryption)
, _bucStorageClass :: !(Maybe Text)
, _bucVersioning :: !(Maybe BucketVersioning)
, _bucCORS :: !(Maybe [BucketCORSItem])
, _bucTimeCreated :: !(Maybe DateTime')
, _bucId :: !(Maybe Text)
, _bucLabels :: !(Maybe BucketLabels)
, _bucUpdated :: !(Maybe DateTime')
, _bucDefaultObjectACL :: !(Maybe [ObjectAccessControl])
, _bucBilling :: !(Maybe BucketBilling)
, _bucMetageneration :: !(Maybe (Textual Int64))
, _bucLogging :: !(Maybe BucketLogging)
, _bucACL :: !(Maybe [BucketAccessControl])
, _bucDefaultEventBasedHold :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
bucket
:: Bucket
bucket =
Bucket'
{ _bucEtag = Nothing
, _bucLocation = Nothing
, _bucIAMConfiguration = Nothing
, _bucKind = "storage#bucket"
, _bucWebsite = Nothing
, _bucProjectNumber = Nothing
, _bucLifecycle = Nothing
, _bucOwner = Nothing
, _bucRetentionPolicy = Nothing
, _bucSelfLink = Nothing
, _bucName = Nothing
, _bucEncryption = Nothing
, _bucStorageClass = Nothing
, _bucVersioning = Nothing
, _bucCORS = Nothing
, _bucTimeCreated = Nothing
, _bucId = Nothing
, _bucLabels = Nothing
, _bucUpdated = Nothing
, _bucDefaultObjectACL = Nothing
, _bucBilling = Nothing
, _bucMetageneration = Nothing
, _bucLogging = Nothing
, _bucACL = Nothing
, _bucDefaultEventBasedHold = Nothing
}
bucEtag :: Lens' Bucket (Maybe Text)
bucEtag = lens _bucEtag (\ s a -> s{_bucEtag = a})
bucLocation :: Lens' Bucket (Maybe Text)
bucLocation
= lens _bucLocation (\ s a -> s{_bucLocation = a})
bucIAMConfiguration :: Lens' Bucket (Maybe BucketIAMConfiguration)
bucIAMConfiguration
= lens _bucIAMConfiguration
(\ s a -> s{_bucIAMConfiguration = a})
bucKind :: Lens' Bucket Text
bucKind = lens _bucKind (\ s a -> s{_bucKind = a})
bucWebsite :: Lens' Bucket (Maybe BucketWebsite)
bucWebsite
= lens _bucWebsite (\ s a -> s{_bucWebsite = a})
bucProjectNumber :: Lens' Bucket (Maybe Word64)
bucProjectNumber
= lens _bucProjectNumber
(\ s a -> s{_bucProjectNumber = a})
. mapping _Coerce
bucLifecycle :: Lens' Bucket (Maybe BucketLifecycle)
bucLifecycle
= lens _bucLifecycle (\ s a -> s{_bucLifecycle = a})
bucOwner :: Lens' Bucket (Maybe BucketOwner)
bucOwner = lens _bucOwner (\ s a -> s{_bucOwner = a})
bucRetentionPolicy :: Lens' Bucket (Maybe BucketRetentionPolicy)
bucRetentionPolicy
= lens _bucRetentionPolicy
(\ s a -> s{_bucRetentionPolicy = a})
bucSelfLink :: Lens' Bucket (Maybe Text)
bucSelfLink
= lens _bucSelfLink (\ s a -> s{_bucSelfLink = a})
bucName :: Lens' Bucket (Maybe Text)
bucName = lens _bucName (\ s a -> s{_bucName = a})
bucEncryption :: Lens' Bucket (Maybe BucketEncryption)
bucEncryption
= lens _bucEncryption
(\ s a -> s{_bucEncryption = a})
bucStorageClass :: Lens' Bucket (Maybe Text)
bucStorageClass
= lens _bucStorageClass
(\ s a -> s{_bucStorageClass = a})
bucVersioning :: Lens' Bucket (Maybe BucketVersioning)
bucVersioning
= lens _bucVersioning
(\ s a -> s{_bucVersioning = a})
bucCORS :: Lens' Bucket [BucketCORSItem]
bucCORS
= lens _bucCORS (\ s a -> s{_bucCORS = a}) . _Default
. _Coerce
bucTimeCreated :: Lens' Bucket (Maybe UTCTime)
bucTimeCreated
= lens _bucTimeCreated
(\ s a -> s{_bucTimeCreated = a})
. mapping _DateTime
bucId :: Lens' Bucket (Maybe Text)
bucId = lens _bucId (\ s a -> s{_bucId = a})
bucLabels :: Lens' Bucket (Maybe BucketLabels)
bucLabels
= lens _bucLabels (\ s a -> s{_bucLabels = a})
bucUpdated :: Lens' Bucket (Maybe UTCTime)
bucUpdated
= lens _bucUpdated (\ s a -> s{_bucUpdated = a}) .
mapping _DateTime
bucDefaultObjectACL :: Lens' Bucket [ObjectAccessControl]
bucDefaultObjectACL
= lens _bucDefaultObjectACL
(\ s a -> s{_bucDefaultObjectACL = a})
. _Default
. _Coerce
bucBilling :: Lens' Bucket (Maybe BucketBilling)
bucBilling
= lens _bucBilling (\ s a -> s{_bucBilling = a})
bucMetageneration :: Lens' Bucket (Maybe Int64)
bucMetageneration
= lens _bucMetageneration
(\ s a -> s{_bucMetageneration = a})
. mapping _Coerce
bucLogging :: Lens' Bucket (Maybe BucketLogging)
bucLogging
= lens _bucLogging (\ s a -> s{_bucLogging = a})
bucACL :: Lens' Bucket [BucketAccessControl]
bucACL
= lens _bucACL (\ s a -> s{_bucACL = a}) . _Default .
_Coerce
bucDefaultEventBasedHold :: Lens' Bucket (Maybe Bool)
bucDefaultEventBasedHold
= lens _bucDefaultEventBasedHold
(\ s a -> s{_bucDefaultEventBasedHold = a})
instance FromJSON Bucket where
parseJSON
= withObject "Bucket"
(\ o ->
Bucket' <$>
(o .:? "etag") <*> (o .:? "location") <*>
(o .:? "iamConfiguration")
<*> (o .:? "kind" .!= "storage#bucket")
<*> (o .:? "website")
<*> (o .:? "projectNumber")
<*> (o .:? "lifecycle")
<*> (o .:? "owner")
<*> (o .:? "retentionPolicy")
<*> (o .:? "selfLink")
<*> (o .:? "name")
<*> (o .:? "encryption")
<*> (o .:? "storageClass")
<*> (o .:? "versioning")
<*> (o .:? "cors" .!= mempty)
<*> (o .:? "timeCreated")
<*> (o .:? "id")
<*> (o .:? "labels")
<*> (o .:? "updated")
<*> (o .:? "defaultObjectAcl" .!= mempty)
<*> (o .:? "billing")
<*> (o .:? "metageneration")
<*> (o .:? "logging")
<*> (o .:? "acl" .!= mempty)
<*> (o .:? "defaultEventBasedHold"))
instance ToJSON Bucket where
toJSON Bucket'{..}
= object
(catMaybes
[("etag" .=) <$> _bucEtag,
("location" .=) <$> _bucLocation,
("iamConfiguration" .=) <$> _bucIAMConfiguration,
Just ("kind" .= _bucKind),
("website" .=) <$> _bucWebsite,
("projectNumber" .=) <$> _bucProjectNumber,
("lifecycle" .=) <$> _bucLifecycle,
("owner" .=) <$> _bucOwner,
("retentionPolicy" .=) <$> _bucRetentionPolicy,
("selfLink" .=) <$> _bucSelfLink,
("name" .=) <$> _bucName,
("encryption" .=) <$> _bucEncryption,
("storageClass" .=) <$> _bucStorageClass,
("versioning" .=) <$> _bucVersioning,
("cors" .=) <$> _bucCORS,
("timeCreated" .=) <$> _bucTimeCreated,
("id" .=) <$> _bucId, ("labels" .=) <$> _bucLabels,
("updated" .=) <$> _bucUpdated,
("defaultObjectAcl" .=) <$> _bucDefaultObjectACL,
("billing" .=) <$> _bucBilling,
("metageneration" .=) <$> _bucMetageneration,
("logging" .=) <$> _bucLogging,
("acl" .=) <$> _bucACL,
("defaultEventBasedHold" .=) <$>
_bucDefaultEventBasedHold])
data Objects = Objects'
{ _oNextPageToken :: !(Maybe Text)
, _oKind :: !Text
, _oItems :: !(Maybe [Object])
, _oPrefixes :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
objects
:: Objects
objects =
Objects'
{ _oNextPageToken = Nothing
, _oKind = "storage#objects"
, _oItems = Nothing
, _oPrefixes = Nothing
}
oNextPageToken :: Lens' Objects (Maybe Text)
oNextPageToken
= lens _oNextPageToken
(\ s a -> s{_oNextPageToken = a})
oKind :: Lens' Objects Text
oKind = lens _oKind (\ s a -> s{_oKind = a})
oItems :: Lens' Objects [Object]
oItems
= lens _oItems (\ s a -> s{_oItems = a}) . _Default .
_Coerce
oPrefixes :: Lens' Objects [Text]
oPrefixes
= lens _oPrefixes (\ s a -> s{_oPrefixes = a}) .
_Default
. _Coerce
instance FromJSON Objects where
parseJSON
= withObject "Objects"
(\ o ->
Objects' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "storage#objects")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "prefixes" .!= mempty))
instance ToJSON Objects where
toJSON Objects'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _oNextPageToken,
Just ("kind" .= _oKind), ("items" .=) <$> _oItems,
("prefixes" .=) <$> _oPrefixes])
data BucketAccessControls = BucketAccessControls'
{ _bacKind :: !Text
, _bacItems :: !(Maybe [BucketAccessControl])
} deriving (Eq,Show,Data,Typeable,Generic)
bucketAccessControls
:: BucketAccessControls
bucketAccessControls =
BucketAccessControls'
{ _bacKind = "storage#bucketAccessControls"
, _bacItems = Nothing
}
bacKind :: Lens' BucketAccessControls Text
bacKind = lens _bacKind (\ s a -> s{_bacKind = a})
bacItems :: Lens' BucketAccessControls [BucketAccessControl]
bacItems
= lens _bacItems (\ s a -> s{_bacItems = a}) .
_Default
. _Coerce
instance FromJSON BucketAccessControls where
parseJSON
= withObject "BucketAccessControls"
(\ o ->
BucketAccessControls' <$>
(o .:? "kind" .!= "storage#bucketAccessControls") <*>
(o .:? "items" .!= mempty))
instance ToJSON BucketAccessControls where
toJSON BucketAccessControls'{..}
= object
(catMaybes
[Just ("kind" .= _bacKind),
("items" .=) <$> _bacItems])
newtype BucketEncryption = BucketEncryption'
{ _beDefaultKmsKeyName :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
bucketEncryption
:: BucketEncryption
bucketEncryption =
BucketEncryption'
{ _beDefaultKmsKeyName = Nothing
}
beDefaultKmsKeyName :: Lens' BucketEncryption (Maybe Text)
beDefaultKmsKeyName
= lens _beDefaultKmsKeyName
(\ s a -> s{_beDefaultKmsKeyName = a})
instance FromJSON BucketEncryption where
parseJSON
= withObject "BucketEncryption"
(\ o ->
BucketEncryption' <$> (o .:? "defaultKmsKeyName"))
instance ToJSON BucketEncryption where
toJSON BucketEncryption'{..}
= object
(catMaybes
[("defaultKmsKeyName" .=) <$> _beDefaultKmsKeyName])
data ComposeRequest = ComposeRequest'
{ _crDestination :: !(Maybe Object)
, _crKind :: !Text
, _crSourceObjects :: !(Maybe [ComposeRequestSourceObjectsItem])
} deriving (Eq,Show,Data,Typeable,Generic)
composeRequest
:: ComposeRequest
composeRequest =
ComposeRequest'
{ _crDestination = Nothing
, _crKind = "storage#composeRequest"
, _crSourceObjects = Nothing
}
crDestination :: Lens' ComposeRequest (Maybe Object)
crDestination
= lens _crDestination
(\ s a -> s{_crDestination = a})
crKind :: Lens' ComposeRequest Text
crKind = lens _crKind (\ s a -> s{_crKind = a})
crSourceObjects :: Lens' ComposeRequest [ComposeRequestSourceObjectsItem]
crSourceObjects
= lens _crSourceObjects
(\ s a -> s{_crSourceObjects = a})
. _Default
. _Coerce
instance FromJSON ComposeRequest where
parseJSON
= withObject "ComposeRequest"
(\ o ->
ComposeRequest' <$>
(o .:? "destination") <*>
(o .:? "kind" .!= "storage#composeRequest")
<*> (o .:? "sourceObjects" .!= mempty))
instance ToJSON ComposeRequest where
toJSON ComposeRequest'{..}
= object
(catMaybes
[("destination" .=) <$> _crDestination,
Just ("kind" .= _crKind),
("sourceObjects" .=) <$> _crSourceObjects])
data ServiceAccount = ServiceAccount'
{ _saKind :: !Text
, _saEmailAddress :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
serviceAccount
:: ServiceAccount
serviceAccount =
ServiceAccount'
{ _saKind = "storage#serviceAccount"
, _saEmailAddress = Nothing
}
saKind :: Lens' ServiceAccount Text
saKind = lens _saKind (\ s a -> s{_saKind = a})
saEmailAddress :: Lens' ServiceAccount (Maybe Text)
saEmailAddress
= lens _saEmailAddress
(\ s a -> s{_saEmailAddress = a})
instance FromJSON ServiceAccount where
parseJSON
= withObject "ServiceAccount"
(\ o ->
ServiceAccount' <$>
(o .:? "kind" .!= "storage#serviceAccount") <*>
(o .:? "email_address"))
instance ToJSON ServiceAccount where
toJSON ServiceAccount'{..}
= object
(catMaybes
[Just ("kind" .= _saKind),
("email_address" .=) <$> _saEmailAddress])
data BucketOwner = BucketOwner'
{ _boEntity :: !(Maybe Text)
, _boEntityId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
bucketOwner
:: BucketOwner
bucketOwner =
BucketOwner'
{ _boEntity = Nothing
, _boEntityId = Nothing
}
boEntity :: Lens' BucketOwner (Maybe Text)
boEntity = lens _boEntity (\ s a -> s{_boEntity = a})
boEntityId :: Lens' BucketOwner (Maybe Text)
boEntityId
= lens _boEntityId (\ s a -> s{_boEntityId = a})
instance FromJSON BucketOwner where
parseJSON
= withObject "BucketOwner"
(\ o ->
BucketOwner' <$>
(o .:? "entity") <*> (o .:? "entityId"))
instance ToJSON BucketOwner where
toJSON BucketOwner'{..}
= object
(catMaybes
[("entity" .=) <$> _boEntity,
("entityId" .=) <$> _boEntityId])
data ComposeRequestSourceObjectsItem = ComposeRequestSourceObjectsItem'
{ _crsoiName :: !(Maybe Text)
, _crsoiObjectPreconditions :: !(Maybe ComposeRequestSourceObjectsItemObjectPreconditions)
, _crsoiGeneration :: !(Maybe (Textual Int64))
} deriving (Eq,Show,Data,Typeable,Generic)
composeRequestSourceObjectsItem
:: ComposeRequestSourceObjectsItem
composeRequestSourceObjectsItem =
ComposeRequestSourceObjectsItem'
{ _crsoiName = Nothing
, _crsoiObjectPreconditions = Nothing
, _crsoiGeneration = Nothing
}
crsoiName :: Lens' ComposeRequestSourceObjectsItem (Maybe Text)
crsoiName
= lens _crsoiName (\ s a -> s{_crsoiName = a})
crsoiObjectPreconditions :: Lens' ComposeRequestSourceObjectsItem (Maybe ComposeRequestSourceObjectsItemObjectPreconditions)
crsoiObjectPreconditions
= lens _crsoiObjectPreconditions
(\ s a -> s{_crsoiObjectPreconditions = a})
crsoiGeneration :: Lens' ComposeRequestSourceObjectsItem (Maybe Int64)
crsoiGeneration
= lens _crsoiGeneration
(\ s a -> s{_crsoiGeneration = a})
. mapping _Coerce
instance FromJSON ComposeRequestSourceObjectsItem
where
parseJSON
= withObject "ComposeRequestSourceObjectsItem"
(\ o ->
ComposeRequestSourceObjectsItem' <$>
(o .:? "name") <*> (o .:? "objectPreconditions") <*>
(o .:? "generation"))
instance ToJSON ComposeRequestSourceObjectsItem where
toJSON ComposeRequestSourceObjectsItem'{..}
= object
(catMaybes
[("name" .=) <$> _crsoiName,
("objectPreconditions" .=) <$>
_crsoiObjectPreconditions,
("generation" .=) <$> _crsoiGeneration])
newtype ChannelParams = ChannelParams'
{ _cpAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
channelParams
:: HashMap Text Text
-> ChannelParams
channelParams pCpAddtional_ =
ChannelParams'
{ _cpAddtional = _Coerce # pCpAddtional_
}
cpAddtional :: Lens' ChannelParams (HashMap Text Text)
cpAddtional
= lens _cpAddtional (\ s a -> s{_cpAddtional = a}) .
_Coerce
instance FromJSON ChannelParams where
parseJSON
= withObject "ChannelParams"
(\ o -> ChannelParams' <$> (parseJSONObject o))
instance ToJSON ChannelParams where
toJSON = toJSON . _cpAddtional
data PolicyBindingsItem = PolicyBindingsItem'
{ _pbiMembers :: !(Maybe [Text])
, _pbiRole :: !(Maybe Text)
, _pbiCondition :: !(Maybe JSONValue)
} deriving (Eq,Show,Data,Typeable,Generic)
policyBindingsItem
:: PolicyBindingsItem
policyBindingsItem =
PolicyBindingsItem'
{ _pbiMembers = Nothing
, _pbiRole = Nothing
, _pbiCondition = Nothing
}
pbiMembers :: Lens' PolicyBindingsItem [Text]
pbiMembers
= lens _pbiMembers (\ s a -> s{_pbiMembers = a}) .
_Default
. _Coerce
pbiRole :: Lens' PolicyBindingsItem (Maybe Text)
pbiRole = lens _pbiRole (\ s a -> s{_pbiRole = a})
pbiCondition :: Lens' PolicyBindingsItem (Maybe JSONValue)
pbiCondition
= lens _pbiCondition (\ s a -> s{_pbiCondition = a})
instance FromJSON PolicyBindingsItem where
parseJSON
= withObject "PolicyBindingsItem"
(\ o ->
PolicyBindingsItem' <$>
(o .:? "members" .!= mempty) <*> (o .:? "role") <*>
(o .:? "condition"))
instance ToJSON PolicyBindingsItem where
toJSON PolicyBindingsItem'{..}
= object
(catMaybes
[("members" .=) <$> _pbiMembers,
("role" .=) <$> _pbiRole,
("condition" .=) <$> _pbiCondition])
data Object = Object'
{ _objTemporaryHold :: !(Maybe Bool)
, _objEtag :: !(Maybe Text)
, _objTimeStorageClassUpdated :: !(Maybe DateTime')
, _objRetentionExpirationTime :: !(Maybe DateTime')
, _objSize :: !(Maybe (Textual Word64))
, _objKind :: !Text
, _objTimeDeleted :: !(Maybe DateTime')
, _objCrc32c :: !(Maybe Text)
, _objCustomerEncryption :: !(Maybe ObjectCustomerEncryption)
, _objBucket :: !(Maybe Text)
, _objOwner :: !(Maybe ObjectOwner)
, _objSelfLink :: !(Maybe Text)
, _objMediaLink :: !(Maybe Text)
, _objComponentCount :: !(Maybe (Textual Int32))
, _objName :: !(Maybe Text)
, _objStorageClass :: !(Maybe Text)
, _objContentEncoding :: !(Maybe Text)
, _objEventBasedHold :: !(Maybe Bool)
, _objMetadata :: !(Maybe ObjectMetadata)
, _objTimeCreated :: !(Maybe DateTime')
, _objId :: !(Maybe Text)
, _objKmsKeyName :: !(Maybe Text)
, _objUpdated :: !(Maybe DateTime')
, _objContentLanguage :: !(Maybe Text)
, _objCacheControl :: !(Maybe Text)
, _objMetageneration :: !(Maybe (Textual Int64))
, _objGeneration :: !(Maybe (Textual Int64))
, _objACL :: !(Maybe [ObjectAccessControl])
, _objContentDisPosition :: !(Maybe Text)
, _objMD5Hash :: !(Maybe Text)
, _objContentType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
object'
:: Object
object' =
Object'
{ _objTemporaryHold = Nothing
, _objEtag = Nothing
, _objTimeStorageClassUpdated = Nothing
, _objRetentionExpirationTime = Nothing
, _objSize = Nothing
, _objKind = "storage#object"
, _objTimeDeleted = Nothing
, _objCrc32c = Nothing
, _objCustomerEncryption = Nothing
, _objBucket = Nothing
, _objOwner = Nothing
, _objSelfLink = Nothing
, _objMediaLink = Nothing
, _objComponentCount = Nothing
, _objName = Nothing
, _objStorageClass = Nothing
, _objContentEncoding = Nothing
, _objEventBasedHold = Nothing
, _objMetadata = Nothing
, _objTimeCreated = Nothing
, _objId = Nothing
, _objKmsKeyName = Nothing
, _objUpdated = Nothing
, _objContentLanguage = Nothing
, _objCacheControl = Nothing
, _objMetageneration = Nothing
, _objGeneration = Nothing
, _objACL = Nothing
, _objContentDisPosition = Nothing
, _objMD5Hash = Nothing
, _objContentType = Nothing
}
objTemporaryHold :: Lens' Object (Maybe Bool)
objTemporaryHold
= lens _objTemporaryHold
(\ s a -> s{_objTemporaryHold = a})
objEtag :: Lens' Object (Maybe Text)
objEtag = lens _objEtag (\ s a -> s{_objEtag = a})
objTimeStorageClassUpdated :: Lens' Object (Maybe UTCTime)
objTimeStorageClassUpdated
= lens _objTimeStorageClassUpdated
(\ s a -> s{_objTimeStorageClassUpdated = a})
. mapping _DateTime
objRetentionExpirationTime :: Lens' Object (Maybe UTCTime)
objRetentionExpirationTime
= lens _objRetentionExpirationTime
(\ s a -> s{_objRetentionExpirationTime = a})
. mapping _DateTime
objSize :: Lens' Object (Maybe Word64)
objSize
= lens _objSize (\ s a -> s{_objSize = a}) .
mapping _Coerce
objKind :: Lens' Object Text
objKind = lens _objKind (\ s a -> s{_objKind = a})
objTimeDeleted :: Lens' Object (Maybe UTCTime)
objTimeDeleted
= lens _objTimeDeleted
(\ s a -> s{_objTimeDeleted = a})
. mapping _DateTime
objCrc32c :: Lens' Object (Maybe Text)
objCrc32c
= lens _objCrc32c (\ s a -> s{_objCrc32c = a})
objCustomerEncryption :: Lens' Object (Maybe ObjectCustomerEncryption)
objCustomerEncryption
= lens _objCustomerEncryption
(\ s a -> s{_objCustomerEncryption = a})
objBucket :: Lens' Object (Maybe Text)
objBucket
= lens _objBucket (\ s a -> s{_objBucket = a})
objOwner :: Lens' Object (Maybe ObjectOwner)
objOwner = lens _objOwner (\ s a -> s{_objOwner = a})
objSelfLink :: Lens' Object (Maybe Text)
objSelfLink
= lens _objSelfLink (\ s a -> s{_objSelfLink = a})
objMediaLink :: Lens' Object (Maybe Text)
objMediaLink
= lens _objMediaLink (\ s a -> s{_objMediaLink = a})
objComponentCount :: Lens' Object (Maybe Int32)
objComponentCount
= lens _objComponentCount
(\ s a -> s{_objComponentCount = a})
. mapping _Coerce
objName :: Lens' Object (Maybe Text)
objName = lens _objName (\ s a -> s{_objName = a})
objStorageClass :: Lens' Object (Maybe Text)
objStorageClass
= lens _objStorageClass
(\ s a -> s{_objStorageClass = a})
objContentEncoding :: Lens' Object (Maybe Text)
objContentEncoding
= lens _objContentEncoding
(\ s a -> s{_objContentEncoding = a})
objEventBasedHold :: Lens' Object (Maybe Bool)
objEventBasedHold
= lens _objEventBasedHold
(\ s a -> s{_objEventBasedHold = a})
objMetadata :: Lens' Object (Maybe ObjectMetadata)
objMetadata
= lens _objMetadata (\ s a -> s{_objMetadata = a})
objTimeCreated :: Lens' Object (Maybe UTCTime)
objTimeCreated
= lens _objTimeCreated
(\ s a -> s{_objTimeCreated = a})
. mapping _DateTime
objId :: Lens' Object (Maybe Text)
objId = lens _objId (\ s a -> s{_objId = a})
objKmsKeyName :: Lens' Object (Maybe Text)
objKmsKeyName
= lens _objKmsKeyName
(\ s a -> s{_objKmsKeyName = a})
objUpdated :: Lens' Object (Maybe UTCTime)
objUpdated
= lens _objUpdated (\ s a -> s{_objUpdated = a}) .
mapping _DateTime
objContentLanguage :: Lens' Object (Maybe Text)
objContentLanguage
= lens _objContentLanguage
(\ s a -> s{_objContentLanguage = a})
objCacheControl :: Lens' Object (Maybe Text)
objCacheControl
= lens _objCacheControl
(\ s a -> s{_objCacheControl = a})
objMetageneration :: Lens' Object (Maybe Int64)
objMetageneration
= lens _objMetageneration
(\ s a -> s{_objMetageneration = a})
. mapping _Coerce
objGeneration :: Lens' Object (Maybe Int64)
objGeneration
= lens _objGeneration
(\ s a -> s{_objGeneration = a})
. mapping _Coerce
objACL :: Lens' Object [ObjectAccessControl]
objACL
= lens _objACL (\ s a -> s{_objACL = a}) . _Default .
_Coerce
objContentDisPosition :: Lens' Object (Maybe Text)
objContentDisPosition
= lens _objContentDisPosition
(\ s a -> s{_objContentDisPosition = a})
objMD5Hash :: Lens' Object (Maybe Text)
objMD5Hash
= lens _objMD5Hash (\ s a -> s{_objMD5Hash = a})
objContentType :: Lens' Object (Maybe Text)
objContentType
= lens _objContentType
(\ s a -> s{_objContentType = a})
instance FromJSON Object where
parseJSON
= withObject "Object"
(\ o ->
Object' <$>
(o .:? "temporaryHold") <*> (o .:? "etag") <*>
(o .:? "timeStorageClassUpdated")
<*> (o .:? "retentionExpirationTime")
<*> (o .:? "size")
<*> (o .:? "kind" .!= "storage#object")
<*> (o .:? "timeDeleted")
<*> (o .:? "crc32c")
<*> (o .:? "customerEncryption")
<*> (o .:? "bucket")
<*> (o .:? "owner")
<*> (o .:? "selfLink")
<*> (o .:? "mediaLink")
<*> (o .:? "componentCount")
<*> (o .:? "name")
<*> (o .:? "storageClass")
<*> (o .:? "contentEncoding")
<*> (o .:? "eventBasedHold")
<*> (o .:? "metadata")
<*> (o .:? "timeCreated")
<*> (o .:? "id")
<*> (o .:? "kmsKeyName")
<*> (o .:? "updated")
<*> (o .:? "contentLanguage")
<*> (o .:? "cacheControl")
<*> (o .:? "metageneration")
<*> (o .:? "generation")
<*> (o .:? "acl" .!= mempty)
<*> (o .:? "contentDisposition")
<*> (o .:? "md5Hash")
<*> (o .:? "contentType"))
instance ToJSON Object where
toJSON Object'{..}
= object
(catMaybes
[("temporaryHold" .=) <$> _objTemporaryHold,
("etag" .=) <$> _objEtag,
("timeStorageClassUpdated" .=) <$>
_objTimeStorageClassUpdated,
("retentionExpirationTime" .=) <$>
_objRetentionExpirationTime,
("size" .=) <$> _objSize, Just ("kind" .= _objKind),
("timeDeleted" .=) <$> _objTimeDeleted,
("crc32c" .=) <$> _objCrc32c,
("customerEncryption" .=) <$> _objCustomerEncryption,
("bucket" .=) <$> _objBucket,
("owner" .=) <$> _objOwner,
("selfLink" .=) <$> _objSelfLink,
("mediaLink" .=) <$> _objMediaLink,
("componentCount" .=) <$> _objComponentCount,
("name" .=) <$> _objName,
("storageClass" .=) <$> _objStorageClass,
("contentEncoding" .=) <$> _objContentEncoding,
("eventBasedHold" .=) <$> _objEventBasedHold,
("metadata" .=) <$> _objMetadata,
("timeCreated" .=) <$> _objTimeCreated,
("id" .=) <$> _objId,
("kmsKeyName" .=) <$> _objKmsKeyName,
("updated" .=) <$> _objUpdated,
("contentLanguage" .=) <$> _objContentLanguage,
("cacheControl" .=) <$> _objCacheControl,
("metageneration" .=) <$> _objMetageneration,
("generation" .=) <$> _objGeneration,
("acl" .=) <$> _objACL,
("contentDisposition" .=) <$> _objContentDisPosition,
("md5Hash" .=) <$> _objMD5Hash,
("contentType" .=) <$> _objContentType])
newtype ComposeRequestSourceObjectsItemObjectPreconditions = ComposeRequestSourceObjectsItemObjectPreconditions'
{ _crsoiopIfGenerationMatch :: Maybe (Textual Int64)
} deriving (Eq,Show,Data,Typeable,Generic)
composeRequestSourceObjectsItemObjectPreconditions
:: ComposeRequestSourceObjectsItemObjectPreconditions
composeRequestSourceObjectsItemObjectPreconditions =
ComposeRequestSourceObjectsItemObjectPreconditions'
{ _crsoiopIfGenerationMatch = Nothing
}
crsoiopIfGenerationMatch :: Lens' ComposeRequestSourceObjectsItemObjectPreconditions (Maybe Int64)
crsoiopIfGenerationMatch
= lens _crsoiopIfGenerationMatch
(\ s a -> s{_crsoiopIfGenerationMatch = a})
. mapping _Coerce
instance FromJSON
ComposeRequestSourceObjectsItemObjectPreconditions
where
parseJSON
= withObject
"ComposeRequestSourceObjectsItemObjectPreconditions"
(\ o ->
ComposeRequestSourceObjectsItemObjectPreconditions'
<$> (o .:? "ifGenerationMatch"))
instance ToJSON
ComposeRequestSourceObjectsItemObjectPreconditions
where
toJSON
ComposeRequestSourceObjectsItemObjectPreconditions'{..}
= object
(catMaybes
[("ifGenerationMatch" .=) <$>
_crsoiopIfGenerationMatch])
data BucketAccessControlProjectTeam = BucketAccessControlProjectTeam'
{ _bacptProjectNumber :: !(Maybe Text)
, _bacptTeam :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
bucketAccessControlProjectTeam
:: BucketAccessControlProjectTeam
bucketAccessControlProjectTeam =
BucketAccessControlProjectTeam'
{ _bacptProjectNumber = Nothing
, _bacptTeam = Nothing
}
bacptProjectNumber :: Lens' BucketAccessControlProjectTeam (Maybe Text)
bacptProjectNumber
= lens _bacptProjectNumber
(\ s a -> s{_bacptProjectNumber = a})
bacptTeam :: Lens' BucketAccessControlProjectTeam (Maybe Text)
bacptTeam
= lens _bacptTeam (\ s a -> s{_bacptTeam = a})
instance FromJSON BucketAccessControlProjectTeam
where
parseJSON
= withObject "BucketAccessControlProjectTeam"
(\ o ->
BucketAccessControlProjectTeam' <$>
(o .:? "projectNumber") <*> (o .:? "team"))
instance ToJSON BucketAccessControlProjectTeam where
toJSON BucketAccessControlProjectTeam'{..}
= object
(catMaybes
[("projectNumber" .=) <$> _bacptProjectNumber,
("team" .=) <$> _bacptTeam])
data ObjectAccessControls = ObjectAccessControls'
{ _oacKind :: !Text
, _oacItems :: !(Maybe [ObjectAccessControl])
} deriving (Eq,Show,Data,Typeable,Generic)
objectAccessControls
:: ObjectAccessControls
objectAccessControls =
ObjectAccessControls'
{ _oacKind = "storage#objectAccessControls"
, _oacItems = Nothing
}
oacKind :: Lens' ObjectAccessControls Text
oacKind = lens _oacKind (\ s a -> s{_oacKind = a})
oacItems :: Lens' ObjectAccessControls [ObjectAccessControl]
oacItems
= lens _oacItems (\ s a -> s{_oacItems = a}) .
_Default
. _Coerce
instance FromJSON ObjectAccessControls where
parseJSON
= withObject "ObjectAccessControls"
(\ o ->
ObjectAccessControls' <$>
(o .:? "kind" .!= "storage#objectAccessControls") <*>
(o .:? "items" .!= mempty))
instance ToJSON ObjectAccessControls where
toJSON ObjectAccessControls'{..}
= object
(catMaybes
[Just ("kind" .= _oacKind),
("items" .=) <$> _oacItems])
data BucketWebsite = BucketWebsite'
{ _bwMainPageSuffix :: !(Maybe Text)
, _bwNotFoundPage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
bucketWebsite
:: BucketWebsite
bucketWebsite =
BucketWebsite'
{ _bwMainPageSuffix = Nothing
, _bwNotFoundPage = Nothing
}
bwMainPageSuffix :: Lens' BucketWebsite (Maybe Text)
bwMainPageSuffix
= lens _bwMainPageSuffix
(\ s a -> s{_bwMainPageSuffix = a})
bwNotFoundPage :: Lens' BucketWebsite (Maybe Text)
bwNotFoundPage
= lens _bwNotFoundPage
(\ s a -> s{_bwNotFoundPage = a})
instance FromJSON BucketWebsite where
parseJSON
= withObject "BucketWebsite"
(\ o ->
BucketWebsite' <$>
(o .:? "mainPageSuffix") <*> (o .:? "notFoundPage"))
instance ToJSON BucketWebsite where
toJSON BucketWebsite'{..}
= object
(catMaybes
[("mainPageSuffix" .=) <$> _bwMainPageSuffix,
("notFoundPage" .=) <$> _bwNotFoundPage])
data BucketAccessControl = BucketAccessControl'
{ _bacaEmail :: !(Maybe Text)
, _bacaEtag :: !(Maybe Text)
, _bacaKind :: !Text
, _bacaDomain :: !(Maybe Text)
, _bacaBucket :: !(Maybe Text)
, _bacaRole :: !(Maybe Text)
, _bacaSelfLink :: !(Maybe Text)
, _bacaId :: !(Maybe Text)
, _bacaProjectTeam :: !(Maybe BucketAccessControlProjectTeam)
, _bacaEntity :: !(Maybe Text)
, _bacaEntityId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
bucketAccessControl
:: BucketAccessControl
bucketAccessControl =
BucketAccessControl'
{ _bacaEmail = Nothing
, _bacaEtag = Nothing
, _bacaKind = "storage#bucketAccessControl"
, _bacaDomain = Nothing
, _bacaBucket = Nothing
, _bacaRole = Nothing
, _bacaSelfLink = Nothing
, _bacaId = Nothing
, _bacaProjectTeam = Nothing
, _bacaEntity = Nothing
, _bacaEntityId = Nothing
}
bacaEmail :: Lens' BucketAccessControl (Maybe Text)
bacaEmail
= lens _bacaEmail (\ s a -> s{_bacaEmail = a})
bacaEtag :: Lens' BucketAccessControl (Maybe Text)
bacaEtag = lens _bacaEtag (\ s a -> s{_bacaEtag = a})
bacaKind :: Lens' BucketAccessControl Text
bacaKind = lens _bacaKind (\ s a -> s{_bacaKind = a})
bacaDomain :: Lens' BucketAccessControl (Maybe Text)
bacaDomain
= lens _bacaDomain (\ s a -> s{_bacaDomain = a})
bacaBucket :: Lens' BucketAccessControl (Maybe Text)
bacaBucket
= lens _bacaBucket (\ s a -> s{_bacaBucket = a})
bacaRole :: Lens' BucketAccessControl (Maybe Text)
bacaRole = lens _bacaRole (\ s a -> s{_bacaRole = a})
bacaSelfLink :: Lens' BucketAccessControl (Maybe Text)
bacaSelfLink
= lens _bacaSelfLink (\ s a -> s{_bacaSelfLink = a})
bacaId :: Lens' BucketAccessControl (Maybe Text)
bacaId = lens _bacaId (\ s a -> s{_bacaId = a})
bacaProjectTeam :: Lens' BucketAccessControl (Maybe BucketAccessControlProjectTeam)
bacaProjectTeam
= lens _bacaProjectTeam
(\ s a -> s{_bacaProjectTeam = a})
bacaEntity :: Lens' BucketAccessControl (Maybe Text)
bacaEntity
= lens _bacaEntity (\ s a -> s{_bacaEntity = a})
bacaEntityId :: Lens' BucketAccessControl (Maybe Text)
bacaEntityId
= lens _bacaEntityId (\ s a -> s{_bacaEntityId = a})
instance FromJSON BucketAccessControl where
parseJSON
= withObject "BucketAccessControl"
(\ o ->
BucketAccessControl' <$>
(o .:? "email") <*> (o .:? "etag") <*>
(o .:? "kind" .!= "storage#bucketAccessControl")
<*> (o .:? "domain")
<*> (o .:? "bucket")
<*> (o .:? "role")
<*> (o .:? "selfLink")
<*> (o .:? "id")
<*> (o .:? "projectTeam")
<*> (o .:? "entity")
<*> (o .:? "entityId"))
instance ToJSON BucketAccessControl where
toJSON BucketAccessControl'{..}
= object
(catMaybes
[("email" .=) <$> _bacaEmail,
("etag" .=) <$> _bacaEtag,
Just ("kind" .= _bacaKind),
("domain" .=) <$> _bacaDomain,
("bucket" .=) <$> _bacaBucket,
("role" .=) <$> _bacaRole,
("selfLink" .=) <$> _bacaSelfLink,
("id" .=) <$> _bacaId,
("projectTeam" .=) <$> _bacaProjectTeam,
("entity" .=) <$> _bacaEntity,
("entityId" .=) <$> _bacaEntityId])
data BucketLifecycleRuleItemAction = BucketLifecycleRuleItemAction'
{ _blriaStorageClass :: !(Maybe Text)
, _blriaType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
bucketLifecycleRuleItemAction
:: BucketLifecycleRuleItemAction
bucketLifecycleRuleItemAction =
BucketLifecycleRuleItemAction'
{ _blriaStorageClass = Nothing
, _blriaType = Nothing
}
blriaStorageClass :: Lens' BucketLifecycleRuleItemAction (Maybe Text)
blriaStorageClass
= lens _blriaStorageClass
(\ s a -> s{_blriaStorageClass = a})
blriaType :: Lens' BucketLifecycleRuleItemAction (Maybe Text)
blriaType
= lens _blriaType (\ s a -> s{_blriaType = a})
instance FromJSON BucketLifecycleRuleItemAction where
parseJSON
= withObject "BucketLifecycleRuleItemAction"
(\ o ->
BucketLifecycleRuleItemAction' <$>
(o .:? "storageClass") <*> (o .:? "type"))
instance ToJSON BucketLifecycleRuleItemAction where
toJSON BucketLifecycleRuleItemAction'{..}
= object
(catMaybes
[("storageClass" .=) <$> _blriaStorageClass,
("type" .=) <$> _blriaType])
data TestIAMPermissionsResponse = TestIAMPermissionsResponse'
{ _tiprKind :: !Text
, _tiprPermissions :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
testIAMPermissionsResponse
:: TestIAMPermissionsResponse
testIAMPermissionsResponse =
TestIAMPermissionsResponse'
{ _tiprKind = "storage#testIamPermissionsResponse"
, _tiprPermissions = Nothing
}
tiprKind :: Lens' TestIAMPermissionsResponse Text
tiprKind = lens _tiprKind (\ s a -> s{_tiprKind = a})
tiprPermissions :: Lens' TestIAMPermissionsResponse [Text]
tiprPermissions
= lens _tiprPermissions
(\ s a -> s{_tiprPermissions = a})
. _Default
. _Coerce
instance FromJSON TestIAMPermissionsResponse where
parseJSON
= withObject "TestIAMPermissionsResponse"
(\ o ->
TestIAMPermissionsResponse' <$>
(o .:? "kind" .!=
"storage#testIamPermissionsResponse")
<*> (o .:? "permissions" .!= mempty))
instance ToJSON TestIAMPermissionsResponse where
toJSON TestIAMPermissionsResponse'{..}
= object
(catMaybes
[Just ("kind" .= _tiprKind),
("permissions" .=) <$> _tiprPermissions])
data Policy = Policy'
{ _pEtag :: !(Maybe Bytes)
, _pResourceId :: !(Maybe Text)
, _pKind :: !Text
, _pBindings :: !(Maybe [PolicyBindingsItem])
} deriving (Eq,Show,Data,Typeable,Generic)
policy
:: Policy
policy =
Policy'
{ _pEtag = Nothing
, _pResourceId = Nothing
, _pKind = "storage#policy"
, _pBindings = Nothing
}
pEtag :: Lens' Policy (Maybe ByteString)
pEtag
= lens _pEtag (\ s a -> s{_pEtag = a}) .
mapping _Bytes
pResourceId :: Lens' Policy (Maybe Text)
pResourceId
= lens _pResourceId (\ s a -> s{_pResourceId = a})
pKind :: Lens' Policy Text
pKind = lens _pKind (\ s a -> s{_pKind = a})
pBindings :: Lens' Policy [PolicyBindingsItem]
pBindings
= lens _pBindings (\ s a -> s{_pBindings = a}) .
_Default
. _Coerce
instance FromJSON Policy where
parseJSON
= withObject "Policy"
(\ o ->
Policy' <$>
(o .:? "etag") <*> (o .:? "resourceId") <*>
(o .:? "kind" .!= "storage#policy")
<*> (o .:? "bindings" .!= mempty))
instance ToJSON Policy where
toJSON Policy'{..}
= object
(catMaybes
[("etag" .=) <$> _pEtag,
("resourceId" .=) <$> _pResourceId,
Just ("kind" .= _pKind),
("bindings" .=) <$> _pBindings])
newtype BucketIAMConfiguration = BucketIAMConfiguration'
{ _bicBucketPolicyOnly :: Maybe BucketIAMConfigurationBucketPolicyOnly
} deriving (Eq,Show,Data,Typeable,Generic)
bucketIAMConfiguration
:: BucketIAMConfiguration
bucketIAMConfiguration =
BucketIAMConfiguration'
{ _bicBucketPolicyOnly = Nothing
}
bicBucketPolicyOnly :: Lens' BucketIAMConfiguration (Maybe BucketIAMConfigurationBucketPolicyOnly)
bicBucketPolicyOnly
= lens _bicBucketPolicyOnly
(\ s a -> s{_bicBucketPolicyOnly = a})
instance FromJSON BucketIAMConfiguration where
parseJSON
= withObject "BucketIAMConfiguration"
(\ o ->
BucketIAMConfiguration' <$>
(o .:? "bucketPolicyOnly"))
instance ToJSON BucketIAMConfiguration where
toJSON BucketIAMConfiguration'{..}
= object
(catMaybes
[("bucketPolicyOnly" .=) <$> _bicBucketPolicyOnly])
data ObjectAccessControl = ObjectAccessControl'
{ _oacaEmail :: !(Maybe Text)
, _oacaEtag :: !(Maybe Text)
, _oacaKind :: !Text
, _oacaDomain :: !(Maybe Text)
, _oacaBucket :: !(Maybe Text)
, _oacaRole :: !(Maybe Text)
, _oacaSelfLink :: !(Maybe Text)
, _oacaObject :: !(Maybe Text)
, _oacaId :: !(Maybe Text)
, _oacaProjectTeam :: !(Maybe ObjectAccessControlProjectTeam)
, _oacaEntity :: !(Maybe Text)
, _oacaGeneration :: !(Maybe (Textual Int64))
, _oacaEntityId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
objectAccessControl
:: ObjectAccessControl
objectAccessControl =
ObjectAccessControl'
{ _oacaEmail = Nothing
, _oacaEtag = Nothing
, _oacaKind = "storage#objectAccessControl"
, _oacaDomain = Nothing
, _oacaBucket = Nothing
, _oacaRole = Nothing
, _oacaSelfLink = Nothing
, _oacaObject = Nothing
, _oacaId = Nothing
, _oacaProjectTeam = Nothing
, _oacaEntity = Nothing
, _oacaGeneration = Nothing
, _oacaEntityId = Nothing
}
oacaEmail :: Lens' ObjectAccessControl (Maybe Text)
oacaEmail
= lens _oacaEmail (\ s a -> s{_oacaEmail = a})
oacaEtag :: Lens' ObjectAccessControl (Maybe Text)
oacaEtag = lens _oacaEtag (\ s a -> s{_oacaEtag = a})
oacaKind :: Lens' ObjectAccessControl Text
oacaKind = lens _oacaKind (\ s a -> s{_oacaKind = a})
oacaDomain :: Lens' ObjectAccessControl (Maybe Text)
oacaDomain
= lens _oacaDomain (\ s a -> s{_oacaDomain = a})
oacaBucket :: Lens' ObjectAccessControl (Maybe Text)
oacaBucket
= lens _oacaBucket (\ s a -> s{_oacaBucket = a})
oacaRole :: Lens' ObjectAccessControl (Maybe Text)
oacaRole = lens _oacaRole (\ s a -> s{_oacaRole = a})
oacaSelfLink :: Lens' ObjectAccessControl (Maybe Text)
oacaSelfLink
= lens _oacaSelfLink (\ s a -> s{_oacaSelfLink = a})
oacaObject :: Lens' ObjectAccessControl (Maybe Text)
oacaObject
= lens _oacaObject (\ s a -> s{_oacaObject = a})
oacaId :: Lens' ObjectAccessControl (Maybe Text)
oacaId = lens _oacaId (\ s a -> s{_oacaId = a})
oacaProjectTeam :: Lens' ObjectAccessControl (Maybe ObjectAccessControlProjectTeam)
oacaProjectTeam
= lens _oacaProjectTeam
(\ s a -> s{_oacaProjectTeam = a})
oacaEntity :: Lens' ObjectAccessControl (Maybe Text)
oacaEntity
= lens _oacaEntity (\ s a -> s{_oacaEntity = a})
oacaGeneration :: Lens' ObjectAccessControl (Maybe Int64)
oacaGeneration
= lens _oacaGeneration
(\ s a -> s{_oacaGeneration = a})
. mapping _Coerce
oacaEntityId :: Lens' ObjectAccessControl (Maybe Text)
oacaEntityId
= lens _oacaEntityId (\ s a -> s{_oacaEntityId = a})
instance FromJSON ObjectAccessControl where
parseJSON
= withObject "ObjectAccessControl"
(\ o ->
ObjectAccessControl' <$>
(o .:? "email") <*> (o .:? "etag") <*>
(o .:? "kind" .!= "storage#objectAccessControl")
<*> (o .:? "domain")
<*> (o .:? "bucket")
<*> (o .:? "role")
<*> (o .:? "selfLink")
<*> (o .:? "object")
<*> (o .:? "id")
<*> (o .:? "projectTeam")
<*> (o .:? "entity")
<*> (o .:? "generation")
<*> (o .:? "entityId"))
instance ToJSON ObjectAccessControl where
toJSON ObjectAccessControl'{..}
= object
(catMaybes
[("email" .=) <$> _oacaEmail,
("etag" .=) <$> _oacaEtag,
Just ("kind" .= _oacaKind),
("domain" .=) <$> _oacaDomain,
("bucket" .=) <$> _oacaBucket,
("role" .=) <$> _oacaRole,
("selfLink" .=) <$> _oacaSelfLink,
("object" .=) <$> _oacaObject, ("id" .=) <$> _oacaId,
("projectTeam" .=) <$> _oacaProjectTeam,
("entity" .=) <$> _oacaEntity,
("generation" .=) <$> _oacaGeneration,
("entityId" .=) <$> _oacaEntityId])
data Notifications = Notifications'
{ _notKind :: !Text
, _notItems :: !(Maybe [Notification])
} deriving (Eq,Show,Data,Typeable,Generic)
notifications
:: Notifications
notifications =
Notifications'
{ _notKind = "storage#notifications"
, _notItems = Nothing
}
notKind :: Lens' Notifications Text
notKind = lens _notKind (\ s a -> s{_notKind = a})
notItems :: Lens' Notifications [Notification]
notItems
= lens _notItems (\ s a -> s{_notItems = a}) .
_Default
. _Coerce
instance FromJSON Notifications where
parseJSON
= withObject "Notifications"
(\ o ->
Notifications' <$>
(o .:? "kind" .!= "storage#notifications") <*>
(o .:? "items" .!= mempty))
instance ToJSON Notifications where
toJSON Notifications'{..}
= object
(catMaybes
[Just ("kind" .= _notKind),
("items" .=) <$> _notItems])
newtype NotificationCustom_attributes = NotificationCustom_attributes'
{ _ncAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
notificationCustom_attributes
:: HashMap Text Text
-> NotificationCustom_attributes
notificationCustom_attributes pNcAddtional_ =
NotificationCustom_attributes'
{ _ncAddtional = _Coerce # pNcAddtional_
}
ncAddtional :: Lens' NotificationCustom_attributes (HashMap Text Text)
ncAddtional
= lens _ncAddtional (\ s a -> s{_ncAddtional = a}) .
_Coerce
instance FromJSON NotificationCustom_attributes where
parseJSON
= withObject "NotificationCustomAttributes"
(\ o ->
NotificationCustom_attributes' <$>
(parseJSONObject o))
instance ToJSON NotificationCustom_attributes where
toJSON = toJSON . _ncAddtional
data BucketIAMConfigurationBucketPolicyOnly = BucketIAMConfigurationBucketPolicyOnly'
{ _bicbpoLockedTime :: !(Maybe DateTime')
, _bicbpoEnabled :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
bucketIAMConfigurationBucketPolicyOnly
:: BucketIAMConfigurationBucketPolicyOnly
bucketIAMConfigurationBucketPolicyOnly =
BucketIAMConfigurationBucketPolicyOnly'
{ _bicbpoLockedTime = Nothing
, _bicbpoEnabled = Nothing
}
bicbpoLockedTime :: Lens' BucketIAMConfigurationBucketPolicyOnly (Maybe UTCTime)
bicbpoLockedTime
= lens _bicbpoLockedTime
(\ s a -> s{_bicbpoLockedTime = a})
. mapping _DateTime
bicbpoEnabled :: Lens' BucketIAMConfigurationBucketPolicyOnly (Maybe Bool)
bicbpoEnabled
= lens _bicbpoEnabled
(\ s a -> s{_bicbpoEnabled = a})
instance FromJSON
BucketIAMConfigurationBucketPolicyOnly where
parseJSON
= withObject "BucketIAMConfigurationBucketPolicyOnly"
(\ o ->
BucketIAMConfigurationBucketPolicyOnly' <$>
(o .:? "lockedTime") <*> (o .:? "enabled"))
instance ToJSON
BucketIAMConfigurationBucketPolicyOnly where
toJSON BucketIAMConfigurationBucketPolicyOnly'{..}
= object
(catMaybes
[("lockedTime" .=) <$> _bicbpoLockedTime,
("enabled" .=) <$> _bicbpoEnabled])
data RewriteResponse = RewriteResponse'
{ _rrKind :: !Text
, _rrDone :: !(Maybe Bool)
, _rrResource :: !(Maybe Object)
, _rrObjectSize :: !(Maybe (Textual Int64))
, _rrTotalBytesRewritten :: !(Maybe (Textual Int64))
, _rrRewriteToken :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
rewriteResponse
:: RewriteResponse
rewriteResponse =
RewriteResponse'
{ _rrKind = "storage#rewriteResponse"
, _rrDone = Nothing
, _rrResource = Nothing
, _rrObjectSize = Nothing
, _rrTotalBytesRewritten = Nothing
, _rrRewriteToken = Nothing
}
rrKind :: Lens' RewriteResponse Text
rrKind = lens _rrKind (\ s a -> s{_rrKind = a})
rrDone :: Lens' RewriteResponse (Maybe Bool)
rrDone = lens _rrDone (\ s a -> s{_rrDone = a})
rrResource :: Lens' RewriteResponse (Maybe Object)
rrResource
= lens _rrResource (\ s a -> s{_rrResource = a})
rrObjectSize :: Lens' RewriteResponse (Maybe Int64)
rrObjectSize
= lens _rrObjectSize (\ s a -> s{_rrObjectSize = a})
. mapping _Coerce
rrTotalBytesRewritten :: Lens' RewriteResponse (Maybe Int64)
rrTotalBytesRewritten
= lens _rrTotalBytesRewritten
(\ s a -> s{_rrTotalBytesRewritten = a})
. mapping _Coerce
rrRewriteToken :: Lens' RewriteResponse (Maybe Text)
rrRewriteToken
= lens _rrRewriteToken
(\ s a -> s{_rrRewriteToken = a})
instance FromJSON RewriteResponse where
parseJSON
= withObject "RewriteResponse"
(\ o ->
RewriteResponse' <$>
(o .:? "kind" .!= "storage#rewriteResponse") <*>
(o .:? "done")
<*> (o .:? "resource")
<*> (o .:? "objectSize")
<*> (o .:? "totalBytesRewritten")
<*> (o .:? "rewriteToken"))
instance ToJSON RewriteResponse where
toJSON RewriteResponse'{..}
= object
(catMaybes
[Just ("kind" .= _rrKind), ("done" .=) <$> _rrDone,
("resource" .=) <$> _rrResource,
("objectSize" .=) <$> _rrObjectSize,
("totalBytesRewritten" .=) <$>
_rrTotalBytesRewritten,
("rewriteToken" .=) <$> _rrRewriteToken])