anchor.diff:  %%
   encode_header_value({'Host', {Host, Port}}) ->
      <<"Host", ": ", (encode_value(Host))/binary, ":", (encode_value(Port))/binary>>;
  -
  +encode_header_value({'Content-Type', Val}) ->
  +   <<"Content-Type", ": ", (encode_mime_type(Val))/binary>>;
   encode_header_value({Key, Val}) ->
      <<(encode_value(Key))/binary, ": ", (encode_value(Val))/binary>>.
  +
  +%%
  +%%
  +encode_mime_type({Type, SubType}) ->
  +   <<(encode_value(Type))/binary, $/, (encode_value(SubType))/binary>>.
  +  
   
   %%
   %% encode header value  
  
positive.code:    {'Content-Length', list_to_integer(binary_to_list(Val))};
  decode_header_value('Transfer-Length', Val) ->
     {'Transfer-Length', list_to_integer(binary_to_list(Val))};
  decode_header_value(Head, Val) ->
     {Head, Val}.
  
  
  %% parse chunk header
  decode_chunk_head([_], Pckt, Acc, S) ->
  
negative.code:          false
     end.
  
  %%
  %% TODO: support q-values
  decode_mime_type(Val) ->
     [Mime | _QVal] = binary:split(Val, <<$;>>, []),
     case binary:split(Mime, <<$/>>, []) of
        [<<$*>>, <<$*>>] -> {'*',  '*'};
        [Type,   <<$*>>] -> {Type, '*'};
        [<<$*>>,SubType] -> {'*', SubType};
        [Type,  SubType] -> {Type,SubType};
        [Type]           -> {Type, '*'}
     end.
  
  %%%------------------------------------------------------------------
  %%%
  