anchor.diff:      DiffCmd = format("git diff ~s ~s", [First, NewRevno]),
       case command(DiffCmd, [{cd, Package}]) of
           {error, _} = Error -> Error; 
  -        {ok, Diff} ->
  -            Size = size(Diff),
  -            if
  -                Size > 10240 -> {ok, binary:part(Diff, 0, 10239)};
  -                true -> {ok, Diff}
  -            end
  +        {ok, Diff} -> {ok, Diff}
       end;
   
   
  
positive.code:     LogCmd = format("git log ~s", [NewRevno]),
      case command(LogCmd, [{cd, Package}]) of
          {error, _} = Error -> Error;
          {ok, Log} ->
              Size = size(Log),
              if
                  Size > 10240 -> {ok, binary:part(Log, 0, 10239)};
                  true -> {ok, Log}
              end
      end;
  
  get_changelog(_State, Package, _Branch, OldRevno, NewRevno) ->
      LogCmd = format("git log ~s..~s", [OldRevno, NewRevno]),
      case command(LogCmd, [{cd, Package}]) of
          {error, _} = Error -> Error;
          {ok, Log} ->
              Size = size(Log),
              if
                  Size > 10240 -> {ok, binary:part(Log, 0, 10239)};
                  true -> {ok, Log}
              end
      end.
  
  
  
negative.code:     DiffCmd = format("git diff ~s ~s", [OldRevno, NewRevno]),
      case command(DiffCmd, [{cd, Package}]) of 
          {error, _} = Error -> Error;
          {ok, Diff} -> {ok, Diff}
      end.
  
  
  