anchor.diff:  -define(STORAGE_BUCKET, oauth1_config:get(storage_bucket_authorization)).
   
   
  --spec cons(token()) ->
  +-spec cons(client()) ->
       t().
  -cons({token, <<_/binary>>}=Token) ->
  +cons({client, <<_/binary>>}=Client) ->
       #t
  -    { token  = Token
  +    { client = Client
       , realms = ordsets:new()
       }.
   
  
positive.code:     ]).
  
  
  -type token() ::
      oauth1_credentials:id(token).
  
  -type realm() ::
      binary().
  
  -record(t,
      { token  :: token()
      , realms :: [realm()]
      }).
  
  
negative.code:                     case lists:all(fun erlang:is_binary/1, Realms)
                      of  true ->
                              T = #t
                                  { client = Client
                                  , realms = Realms
                                  },
                              {ok, T}
  