anchor.diff:      end.
   
   
  -mk_pretty(R) when is_binary(R) ->
  -    binary_to_list(R);
  -
  -mk_pretty(R) when is_integer(R) ->
  -    integer_to_list(R);
  -
  -mk_pretty(R) when is_list(R) ->
  -    lists:map(fun mk_pretty/1, R);
  +%% @doc
  +%% Function: mk_pretty/1
  +%% Purpose:  Make a json representation more readable. The functions in the 
  +%%           mochijson2 module is hard to read because it is often binaries
  +%% Returns:  list, tuple and string representation of the json object
  +%% @end
  +mk_pretty(Json) when is_binary(Json) ->
  +    binary_to_list(Json);
  +
  +mk_pretty(Json) when is_integer(Json) ->
  +    integer_to_list(Json);
  +
  +mk_pretty(Json) when is_list(Json) ->
  +    lists:map(fun mk_pretty/1, Json);
   
   mk_pretty({struct, Values})  ->
       ValuesList = lists:map(fun tuple_to_list/1, Values),
       StringValues = lists:map(fun mk_pretty/1, ValuesList),
       lists:map(fun list_to_tuple/1, StringValues);
   
  -mk_pretty(R) ->
  -    R.
  +mk_pretty(Json) ->
  +    Json.
   
   %% ====================================================================
   %% Internal functions
   %% ====================================================================
  +%% @doc
  +%% Function: encode_help/1
  +%% Purpose: Helper function for making a string of a tuple and list 
  +%%          representation of a json object
  +%% Returns: string()
  +%% TODO: NOT COMPLETED YET
  +%% @end
   encode_help(Json) when is_tuple(Json)->
       JsonList = tuple_to_list(Json),
       encode_help(JsonList, "").
  
positive.code: 	    false
      end.
  
  field_value_exist(Json, Query, Value) ->
      case get_field_value(Json, Query, Value) of
  	Value ->
  
negative.code: 
  %% @doc
  %% Function: decode/1
  %% Purpose : Decodes a json object. 
  %% Returns : Either a mochiweb, json_term(), representation of the json object
  %%           or a more readable version which only contains lists, tuples and string
  %% @end
  