anchor.diff:  -include("bookshelf.hrl").
   -export([
            list_buckets/1,
  +         list_objects/1,
            model/0,
            write/1,
            write_hrl/0,
  
positive.code:     #'ListAllMyBucketsResult'{ 'Owner'   = owner(),
                                 'Buckets' = buckets(Buckets) }.
  
  %% ===================================================================
  %%                             Partials
  %% ===================================================================
  
negative.code: bucket(#bucket{name=Name, date=Date}) ->
      #'ListAllMyBucketsEntry'{ 'Name' = Name,
                                'CreationDate' = Date }.
  
  object(#object{name=Name, date=Date, size=Size}) ->
      #'ListEntry'{ 'Key'          = binary_to_list(Name),
                    'LastModified' = Date,
                    'ETag'         = "123",
                    'Size'         = io_lib:format("~w", [Size]),
                    'StorageClass' = "STANDARD" }.
  
  %% ===================================================================
  %%                             Utility
  