anchor.diff:  bind(URL, CallbackModule) ->
       case (catch ex_uri:decode(URL)) of
           {ok, Rec = #ex_uri{}, _} ->
  -            bind_1(Rec, CallbackModule);
  +            bind_uri(Rec, CallbackModule);
           _Other ->
  -            error(badarg)
  -    end.
  -
  -bind_1(#ex_uri{scheme = "http", path = Path, authority = #ex_uri_authority{host = Host, port = Port}}, Mod) ->
  +            error(badurl)
  +    end.
  +
  +bind_uri(#ex_uri{scheme = "http", path = Path, authority = #ex_uri_authority{host = Host, port = Port}}, Mod) ->
       hello_httpd:start("http", Host, Port, Path, Mod).
   
   handle_request(CallbackModule, JSON) ->
  
positive.code:     hello_logger:log(JSON, ResponseJSON),
      ResponseJSON.
  
  rpc_request(HostURL, #request{id = Id, method = Method, params = ArgList}) ->
      Methodto    = into_bin(Method),
      IDField     = case Id of
                        undefined -> [];
                        _         -> [{"id", Id}]
                    end,
      RequestJSON = hello_json:encode({IDField ++ [{"jsonrpc", <<"2.0">>}, {"version", <<"1.1">>}, {"method", Methodto}, {"params", ArgList}]}),
      {ok, Hostname, _Path} = split_url(HostURL),
      {ok, Vsn}   = application:get_key(hello, vsn),
      Headers     = [{"Host", Hostname}, {"Connection", "keep-alive"},
  
negative.code:        {ok, {_Code, Body}} -> {ok, Body};
         {error, Reason}     -> {error, {http, Reason}}
      end.
  
  encode_request(#request{id = Id, method = Method, params = ArgList}) ->
      Methodto    = into_bin(Method),
      IDField     = case Id of
                        undefined -> [];
                        _         -> [{"id", Id}]
                    end,
      hello_json:encode({IDField ++ [{"jsonrpc", <<"2.0">>}, {"method", Methodto}, {"params", ArgList}]}).
  
  %% @spec (Host::string(), Method::binary_or_string(), Arguments::list()) -> {ok, hello_json:json()} | {error, rpc_error()}
  %% @doc Function performs a JSON-RPC method call using HTTP.
  