anchor.diff:  %% gen_server callbacks
   %%====================================================================
   
  -init({Host, Path}) ->
  -    {ok, #http_transport{host = Host,
  -                         path = Path,
  -                         read_buffer = [],
  -                         write_buffer = [],
  -                         http_options = []}}.
  +init({Host, Path, Options}) ->
  +    State1 = #http_transport{host = Host,
  +                             path = Path,
  +                             read_buffer = [],
  +                             write_buffer = [],
  +                             http_options = []},
  +    ApplyOption =
  +        fun
  +            ({http_options, HttpOpts}, State = #http_transport{}) ->
  +                State#http_transport{http_options = HttpOpts};
  +            (Other, #http_transport{}) ->
  +                {invalid_option, Other};
  +            (_, Error) ->
  +                Error
  +        end,
  +    case lists:foldl(ApplyOption, State1, Options) of
  +        State2 = #http_transport{} ->
  +            {ok, State2};
  +        Else ->
  +            {stop, Else}
  +    end.
   
   handle_call({write, Data}, _From, State = #http_transport{write_buffer = WBuf}) ->
       {reply, ok, State#http_transport{write_buffer = [WBuf, Data]}};
  
positive.code:                          path, % string()
                           read_buffer, % iolist()
                           write_buffer, % iolist()
                           http_options
                          }).
  
  %%====================================================================
  %% API
  %%====================================================================
  %%--------------------------------------------------------------------
  %% Function: new() -> {ok,Pid} | ignore | {error,Error}
  %% Description: Starts the server
  %%--------------------------------------------------------------------
  new(Host, Path) ->
      case gen_server:start_link(?MODULE, {Host, Path}, []) of
          {ok, Pid} ->
              thrift_transport:new(?MODULE, Pid);
          Else ->
              Else
      end.
  
  %%--------------------------------------------------------------------
  %% Function: set_http_options() -> ok | {error,Error}
  %% Description: Set HTTP options
  %%--------------------------------------------------------------------
  set_http_options(Transport, HTTPOptions) ->
      gen_server:call(Transport, {set_http_options, HTTPOptions}).
  
  %%--------------------------------------------------------------------
  %% Function: write(Transport, Data) -> ok
  
negative.code:         _ ->
              {reply, {error, 'EOF'}, State}
      end;
  
  handle_call(flush, _From, State) ->
      {Response, State1} = do_flush(State),
  