anchor.diff:  
   polling_stop(Pid) ->
   	Pid ! stop,
  +
   	ok.
   
   poll_func(Pid) ->
   	{_,Data} = erlang:process_info(Pid, garbage_collection_info),
   	{_, _, Ohs, Hs} = parse_trace(Data),
   	[{<<"pid">>, list_to_binary(pid_to_list(Pid))}, 
  -	 {<<"type">>, <<"minor">>},
  +	 {<<"type">>, <<"poll">>},
   	 {<<"old_heap_size">>, Ohs},
   	 {<<"heap_size">>, Hs},
   	 {<<"timestamp">>, erlang:convert_time_unit(erlang:monotonic_time(), native, millisecond) + erlang:time_offset(millisecond)}].
  
positive.code: 	ok.
  
  handler(end_of_trace, Return) ->
  	Output = jsx:encode(Return),
  	file:write_file("dump.json", Output);
  handler(M, Return) ->
  	Return ++ parse(M).
  
negative.code: 	 {<<"heap_size">>, Hs},
  	 {<<"timestamp">>, erlang:convert_time_unit(Timestamp, native, millisecond) + erlang:time_offset(millisecond)}]
  	].
  
  