anchor.diff:                      mkdir_p(Path, []),
                       FileName = string:join(Path, "/") ++ "/" ++ Day ++ ".txt",
                       {ok, IoDevice} = file:open(FileName, [append, {encoding, utf8}]),
  -                    io:format(IoDevice, "{ \"~ts\" : [~ts]},~n", [PlateNo, io_format_history(History, {Month, Day})]),
  +                    io:format(IoDevice, "{ \"~ts\" : [~ts]},~n",
  +                              [PlateNo,
  +                               io_format_history(
  +                                 History, {Month, Day}, NewState#state.station_array)]),
                       ok = file:close(IoDevice)
                   end, Obsoletes)
       end,
   
  -    State#state{ bus_location_list=NewBusLocationList, updated_at=os:timestamp()}.
  -
  -
  -update_bus_location_list(OldBusLocationList, BusLocationList) ->
  +    NewState#state{ bus_loc_list=NewBusLocationList, loc_updated_at=os:timestamp()}.
  +
  +
  +update_bus_loc_list(OldBusLocationList, BusLocationList) ->
       lists:foldl(
       fun(BusLocation, {OldList, NewList}) ->
           StationSeq = proplists:get_value(<<"stationSeq">>, BusLocation),
  
positive.code:     Result = proplists:get_value(<<"result">>, Message),
      BusLocationList = proplists:get_value(<<"busLocationList">>, Result),
  
      {Obsoletes, NewBusLocationList} = update_bus_location_list(OldBusLocationList, BusLocationList),
  
      case Obsoletes of
          [] -> ok;
  
negative.code:             case lists:keytake(PlateNo, 1, OldList) of
                  {value, {_, [{LastStationSeq, _LastUpdateDate}|_]=History}, OldListUpdated1} ->
                      if
                          StationSeq < (LastStationSeq - 2) -> % some buses go back to previous station
                              % New bus
                              { [ {PlateNo, History} | OldListUpdated1], {PlateNo, [{StationSeq, UpdateDate}]} };
                          true ->
                              % Update bus
                              { OldListUpdated1, {PlateNo, [{StationSeq, UpdateDate} | History]} }
                              % No update
                              % { OldListUpdated1, {PlateNo, History} }
                      end;
                  false -> 
                      % New bus
  