Copyright | (C) 2020-2023 Bellroy Pty Ltd |
---|---|
License | BSD-3-Clause |
Maintainer | Bellroy Tech Team <haskell@bellroy.com> |
Stability | experimental |
Safe Haskell | Safe-Inferred |
Language | Haskell2010 |
Extensions |
|
S3 Object
An AWS S3 object, made of a bucket and an object key.
>>>
"bucket-name/my/object" ^? _Object
Just (Object {bucket = Bucket {bucketName = "bucket-name"}, objectKey = "my/object"})
>>>
"bucket-name" ^? _Object
Nothing
>>>
bucket <$> "bucket-name/my/object" ^? _Object
Just (Bucket {bucketName = "bucket-name"})
Since: 0.3.1.0
Instances
Generic Object Source # | |
Show Object Source # | |
Eq Object Source # | |
Ord Object Source # | |
Hashable Object Source # | |
Defined in Network.AWS.ARN.S3 | |
type Rep Object Source # | |
Defined in Network.AWS.ARN.S3 type Rep Object = D1 ('MetaData "Object" "Network.AWS.ARN.S3" "aws-arn-0.3.1.0-7elo9Xf6HT0CSKr6icS218" 'False) (C1 ('MetaCons "Object" 'PrefixI 'True) (S1 ('MetaSel ('Just "bucket") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bucket) :*: S1 ('MetaSel ('Just "objectKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))) |
renderObject :: Object -> Text Source #
Since: 0.3.1.0
S3 Bucket
An AWS S3 bucket, without an object key.
>>>
"bucket-name" ^? _Bucket
Just (Bucket {bucketName = "bucket-name"})
>>>
"bucket-name/my/object" ^? _Bucket
Nothing
>>>
let b = Bucket "my-bucket" in renderObject . Object b <$> ["obj1", "obj2"]
["my-bucket/obj1","my-bucket/obj2"]
Since: 0.3.1.0
Bucket | |
|
renderBucket :: Bucket -> Text Source #
Since: 0.3.1.0