anchor.diff:  -export([proplists_to_jsx_input/1]).
   
   proplists_to_jsx_input(List) ->
  -	[{transform(X),transform(Y)}||{X,Y}<-List].
  +	[{transform(X),transform(Y)} || {X,Y} <- List].
   	
   transform(true) ->
   	true;
  
positive.code: 	?assertEqual(false, transform(false)),
  	?assertEqual(1, transform(1)),
  	?assertEqual(1.0, transform(1.0)),
  	?assertEqual(<<"test">>, transform("test")).
  -endif.
  
negative.code: 	false;	
  transform(Value) when is_atom(Value) ->
  	erlang:atom_to_binary(Value, utf8);
  transform(Value) when is_list(Value) ->
  	case is_tuple_list(Value) of 
  		true -> Value;
  		false -> erlang:list_to_binary(Value)
  	end;
  transform(Value) ->
  	Value.
  is_tuple_list([H|T]) ->
  	is_tuple(H). 
  
  -include_lib("eunit/include/eunit.hrl").
  -ifdef(TEST).
  
  