anchor.diff:  create_user(UserName) ->
       case riak_connection() of
           {ok, RiakPid} ->
  -            %% TODO: Is it outside the scope
  -            %% of this module for this func
  -            %% to be making up the key/secret?
  -            KeyID = unique_hex_id(),
  -            Secret = unique_hex_id(),
  -
  +            {KeyID, Secret} = generate_access_creds(UserName),
               User = #moss_user{name=UserName, key_id=KeyID, key_secret=Secret},
               save_user(User, RiakPid),
               close_riak_connection(RiakPid),
  
positive.code:             Error
      end.
  
  %% @doc Save information about a MOSS user
  -spec save_user(moss_user(), pid()) -> ok.
  save_user(User, RiakPid) ->
  
negative.code:     %% @TODO Error handling
      ok = riakc_pb_socket:put(RiakPid, UserObj),
      ok.
  
  