anchor.diff:  
   -define(chunk_read_size, 409600).
   -define(DEFAULT_CONTENT_TYPE, "text/plain").
  +-define(DEFAULT_FILE, "index.html").
   
   -record(read_state, {path, file}).
   
   %% TODO: Options to include:
   %%
  -%% -Content type proplist
  +%% - Content type proplist
  +%% - Default file for a dir
   %%
   create_app(Dir) ->
       fun(Env) -> ?MODULE:serve_file(Dir, Env) end.
   
   serve_file(Dir, Env) ->
  -    Path = requested_file(Dir, Env),
  -    Info = read_file_info(Path),
  +    {Info, Path} = resolved_file_info(requested_path(Dir, Env)),
       LastModified = last_modified(Info),
       ContentType = content_type(Path),
       Size = file_size(Info),
  
positive.code: strip_leading_slashes([$\\|Rest]) -> strip_leading_slashes(Rest);
  strip_leading_slashes(RelativePath) -> RelativePath.
  
  read_file_info(Path) ->
      handle_read_file_info(file:read_file_info(Path, [{time, universal}])).
  
  handle_read_file_info({ok, #file_info{type=regular}=Info}) -> Info;
  handle_read_file_info({ok, _}) -> not_found();
  handle_read_file_info({error, _}) -> not_found().
  
  last_modified(#file_info{mtime=MTime}) ->
      psycho_util:http_date(MTime).
  
negative.code:     Body = body_iterable(Path, open_file(Path)),
      {{200, "OK"}, Headers, Body}.
  
  requested_path(Dir, Env) ->
      filename:join(Dir, relative_request_path(Env)).
  
  relative_request_path(Env) ->
  