anchor.diff:    % ?MODULE:get(["vhost", "/"]);
     VhostListing = [ erlang:binary_to_list(V) || V <- vhosts:get_all_vhosts()],
     Vhosts = lists:map(fun(V) ->
  -      % [{"name", utils:turn_binary(V)}, {"users", Users}]
  -      U = list_vhost_users(V),
  -      
  -      % Now aggregate their data        
  -      Users = lists:map(fun(User) ->
  -          UserTuple = create_writable_user_perm_structure(User),
  -          {struct, UserTuple }
  -        end, U),
  -      {struct, [{"name", utils:turn_binary(V)},{"users", Users}]}
  +     get_vhost_perms(V)
       end, VhostListing),
     
     {?MODULE,
  
positive.code: %%====================================================================
  %% Utils
  %%====================================================================
  create_writable_user_perm_structure(User) ->
    [Name|Rest] = User,
    [Configure|Rest2] = Rest,
    [Write|ReadArr] = Rest2,
    [Read] = ReadArr,
  
negative.code:         _E -> throw(Error)
        end;
      Bin ->
        [{struct, create_writable_perm_structure(erlang:tuple_to_list(P))} || P <- Bin ]
    end,
    {struct, [
      {name, utils:turn_binary(Username) },
  