anchor.diff:          _E -> throw(Error)
         end;
       Bin ->
  -      ResponseList = [erlang:tuple_to_list(P) || P <- Bin ],
  -      _VhostList = [ hd(List) || List <- ResponseList ]
  +      [{struct, create_writable_perm_structure(erlang:tuple_to_list(P))} || P <- Bin ]
     end,
     {struct, [
       {name, utils:turn_binary(Username) },
  
positive.code:           map_user_to_vhost(Username, VHost);
          _E -> throw(Error)
        end;
      ok -> get_user_perms(Username)
    end;
    
      
  post(_Path, _Data) -> {"error", <<"unhandled">>}.
  put(_Path, _Data) -> {"error", <<"unhandled">>}.
  
  
negative.code:   ]}.
  
  get_vhost_perms(Vhost) ->
    U = list_vhost_users(Vhost),
        
    % Now aggregate their data        
    Users = lists:map(fun(User) ->
        UserTuple = create_writable_perm_structure(User),
        {struct, UserTuple }
      end, U),
    {struct, [{"name", utils:turn_binary(Vhost)},{"users", Users}]}.
  
  % ConfigurePerm, WritePerm, ReadPerm
  extract_param(Name, Data) ->
    case proplists:get_value(erlang:list_to_binary(Name), Data) of
  