anchor.diff:  
   new(Uri) ->
      fun(State) ->
  -      Request = [#'GET'{uri = uri:new(Uri)}],
  -      [Uri | State#{req => Request}]
  -   end.
  +      Request = #'GET'{
  +         uri     = uri:new(Uri),
  +         headers = [
  +            {<<"Connection">>, <<"close">>},
  +            {<<"Accept">>,     <<"*/*">>}
  +         ]
  +      },
  +      [Uri | State#{req => [Request]}]
  +   end.
  +
   
   %% 
   %% set socket options
  
positive.code: 
  header(Head, Value)
   when is_list(Value) ->
     m_state:put(header(scalar:s(Head)), scalar:s(Value));
  
  header(Head, Value) ->
     m_state:put(header(scalar:s(Head)), Value).
  
  
  %%
  
negative.code: %%
  send(Sock, State) ->
     [either ||
        Request =< lens:get(req(), State),
        Payload =< lens:get(req_payload(), State),
        knet:send(Sock, Request),
        knet:send(Sock, Payload),
        knet:send(Sock, eof)
     ].
  
  %%
  %%
  recv(Sock, Timeout, _State) ->
     Http    = stream:list(knet:stream(Sock, Timeout)),
     Payload = case 
        htcodec:decode(Http) 
     of
        {ok, Result} -> 
           [Result];
        {error, _} ->
           tl(Http)
     end,
     {ok, [hd(Http) | Payload]}.   
  
  %%
  %%
  