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: send(#state{mod = Mod, sock = Sock}, Type, Data) ->
      Mod:send(Sock, pgsql_wire:encode(Type, Data)).
  
  gen_reply(#state{queue = Q} = State, Message) ->
      gen_server:reply(queue:get(Q), Message).
  
  notify_async(#state{async = Pid}, Msg) ->
      case is_pid(Pid) of
  
negative.code: 
  %% ReadyForQuery
  initializing({$Z, <<Status:8>>}, State) ->
      #state{parameters = Parameters, queue = Queue} = State,
      erase(username),
      erase(password),
      %% TODO decode dates to now() format
  