anchor.diff:  %%%===================================================================
   %%% Internal functions
   %%%===================================================================
  +
  +run_git_command(Args, Cd) ->
  +  Opts = [binary, stderr_to_stdout, use_stdio, exit_status, stream,
  +          {args, Args}, {cd, Cd}],
  +  P = open_port({spawn_executable, os:find_executable('git')}, Opts),
  +  cmd_receive(P).
  +
  +
  +cmd_receive(Port) ->
  +   cmd_receive(Port, []).
  +
  +cmd_receive(Port, Out) ->
  +  receive
  +    {Port, {data, Data}}      ->
  +      List = binary_to_list(Data),
  +      cmd_receive(Port, [List|Out]);
  +    {Port, {exit_status, 0}}  ->
  +      {ok, lists:reverse(Out)};
  +    {Port, {exit_status, N}}  ->
  +      {error, {N, lists:reverse(Out)}};
  +    E ->
  +      cmd_receive(Port, Out)
  +    after 500 ->
  +      % We don't want it to hang infinitely, so if it does, we'll close it off
  +      ok
  +  end.
  
positive.code: 
  -include("common.hrl").
  -define(LOCAL_REPO_ROOT, ?BEEHIVE_HOME ++ "/git_repos").
  
  
  -record(state, {repo_dir}).
  
  
negative.code: handle_call(_Request, _From, State) ->
    Reply = ok,
    {reply, Reply, State}.
  
  %%--------------------------------------------------------------------
  %% @private
  