anchor.diff:  init([]) ->
       {ok, #state{}}.
   
  -handle_call({connect, Host, Username, Password, Opts},
  -            From,
  +handle_call({get_parameter, Name}, From, State) ->
  +    case lists:keysearch(Name, 1, State#state.parameters) of
  +        {value, {Name, Value}} -> Value;
  +        false                  -> Value = undefined
  +    end,
  +    {reply, {ok, Value}, State}.
  +
  +handle_cast({connect, From, Ref, Host, Username, Password, Opts},
               #state{queue = Queue} = State) ->
       Timeout = proplists:get_value(timeout, Opts, 5000),
       Port = proplists:get_value(port, Opts, 5432),
  
positive.code: -behavior(gen_server).
  
  -export([start_link/0,
           connect/5,
           close/1,
           get_parameter/2,
           squery/2,
           parse/4,
           bind/4,
           execute/4,
           describe/3,
           sync/1,
           close/3,
           cancel/1]).
  
  -export([handle_call/3, handle_cast/2, handle_info/2]).
  
negative.code: 
  %% ReadyForQuery
  initializing({$Z, <<Status:8>>}, State) ->
      #state{parameters = Parameters, queue = Queue} = State,
      erase(username),
      erase(password),
      %% TODO decode dates to now() format
  