anchor.diff:                                    Path :: binary(),
                                     MaxLeaseTime :: integer(),
                                     WorkerPort :: port(),
  -                                  From :: pid(),
  +                                  From :: {pid(), _},
                                     Timeout :: integer(),
                                     Token :: binary(),
                                     Public :: binary(),
  
positive.code:                                              OldRootHash :: binary(),
                                               NewRootHash :: binary(),
                                               RepoTag :: cvmfs_common_types:repository_tag(),
                                               From :: pid(),
                                               Timeout :: integer().
  p_commit(WorkerPort, LeasePath, OldRootHash, NewRootHash, RepoTag, From, Timeout) ->
      {TagName, TagChannel, TagDescription} = RepoTag,
  
negative.code:                     -> {ok, PublicId} | {error, invalid_macaroon}
                             when Token :: binary(),
                                  WorkerPort :: port(),
                                  From :: {pid(), _},
                                  Timeout :: integer(),
                                  PublicId :: binary().
  p_get_token_id(Token, WorkerPort, From, Timeout) ->
  