(buckets) ( xml -- seq )

Vocabulary

s3.private

Inputs

xml

an object

Outputs

seq

an object

Definition

USING: kernel s3 sequences xml.traversal ;

IN: s3.private

: (buckets) ( xml -- seq )
    "Buckets" tag-named "Bucket" tags-named [
        [ "Name" tag-named children>string ]
        [ "CreationDate" tag-named children>string ] bi
        bucket boa
    ] map ;