anchor.diff:          {error, _} = Error -> Error; 
           {ok, Diff} -> {ok, Diff}
       end;
  -
  -
  -get_diff(_State, Package, _Branch, OldRevno, NewRevno) ->
  +retrieve_diff(_State, Package, _Branch, OldRevno, NewRevno) ->
       DiffCmd = format("git diff ~s ~s", [OldRevno, NewRevno]),
       case command(DiffCmd, [{cd, Package}]) of 
           {error, _} = Error -> Error;
  
positive.code:     end.
  
  
  get_diff(_State, Package, _Branch, Revno, NewRevno) when Revno == none; Revno == error ->
      Revisions = case command("git rev-list --all", [{cd, Package}]) of
          {ok, Data} -> Data;
          {error, Err} ->  error_logger:error_msg("get_diff error: ~p~n", [Err]), <<>>
  
negative.code:     end.
  
  
  get_changelog(State, Package, Branch, Revno, NewRevno) ->
      case proplists:get_value(changelog_enabled, State, true) of
          true -> retrieve_changelog(State, Package, Branch, Revno, NewRevno);
          false -> {ok,  <<"changelog disabled">>}
      end.
  
  
  
  retrieve_changelog(_State, Package, _Branch, Revno, NewRevno) when Revno == none; Revno == error ->
      LogCmd = format("git log ~s", [NewRevno]),
      case command(LogCmd, [{cd, Package}]) of
          {error, _} = Error -> Error;
          {ok, Log} -> {ok, Log}
      end;
  retrieve_changelog(_State, Package, _Branch, OldRevno, NewRevno) ->
      LogCmd = format("git log ~s..~s", [OldRevno, NewRevno]),
      case command(LogCmd, [{cd, Package}]) of
          {error, _} = Error -> Error;
  