anchor.diff:    loop(LSock).
     
   handle_method(Sock) ->
  -  % get the requested method
  +  % get the requested host and method
     {ok, Header} = gen_tcp:recv(Sock, 0),
     {ok, Host} = extract_host(Header),
     Method = extract_method_name(Header),
  
positive.code:   end.
  
  handle_upload_pack_impl(Sock, Host, Header) ->
    Root = "/Users/tom/dev/sandbox/git/",
    
    % extract and normalize the repo path
    {ok, Path} = extract_repo_path(Header),
    {ok, FullPath} = conf:convert_path(Host, Path),
    
    io:format("fullpath = ~p~n", [FullPath]),
    
    % {ok, NormalizedPath} = normalize_path(Path),
    % FullPath = Root ++ NormalizedPath,
    
    % check for repo existence
    case file_exists(FullPath) of
  
negative.code:       invalid
    end.
    
  file_exists(FullPath) ->
    case file:read_file_info(FullPath) of
      {ok, _Info} ->
  