anchor.diff:  
   do_action(Access, Username, Password, Req, Action) ->
       lager:info("~p'ing user '~s'", [Action, Username]),
  -    case {Action, ioriol_access:Action(Access, Username, Password)} of
  +    case {Action, ioriol_access:Action(Access, Username, binary_to_list(Password))} of
           {create_user, ok} ->
               ioriol_access:maybe_grant_bucket_ownership(Access, Username),
               UriStr = io_lib:format("/users/~s", [Username]),
  
positive.code: rest_init(Req, [{access, Access}]) ->
      Bucket = ?PERM_MAGIC_BUCKET,
      {ok, Info} = ioriol_access:new_req([{bucket, Bucket}]),
  	{ok, Req, #state{access=Access, info=Info}}.
  
  allowed_methods(Req, State) -> {[<<"POST">>, <<"PUT">>, <<"GET">>], Req, State}.
  
  resource_exists(Req, State) ->
      {Method, Req1} = cowboy_req:method(Req),
      Exists = case Method of
                   <<"POST">> -> false;
                   _ -> true
               end,
      {Exists, Req1, State}.
  
  content_types_accepted(Req, State) ->
      {[{{<<"application">>, <<"json">>, '*'}, from_json}], Req, State}.
  
negative.code: 
  -include("include/iorio.hrl").
  
  -record(state, {access, info, method, body_set=false, username, password}).
  
  init({tcp, http}, _Req, _Opts) -> {upgrade, protocol, cowboy_rest};
  init({ssl, http}, _Req, _Opts) -> {upgrade, protocol, cowboy_rest}.
  