anchor.diff: -%% @doc Ssl Socket listening server.  Clients are expected to first contact
  -%% this listeer before attempting to reach the others.  Uses an accept 
  +%% @doc SSL Socket listening server.  Clients are expected to first contact
  +%% this listener before attempting to reach the others.  Uses an accept
   %% pool for extra awesome.
   -module(pre_ssl_listener).
   -behavior(gen_server).
  
positive.code: terminate(Cause, _State) when Cause =:= normal; Cause =:= shutdown ->
  	ok;
  terminate(Cause, _State) ->
  	?warning("ssl listener died due to ~p", [Cause]),
  	ok.
  
  %% =====
  
negative.code: 					ssl:controlling_process(NewSocket, Pid),
  					exit(normal);
  				{error, Reason} ->
  					?notice("SSL connect did not complete:  ~p", [Reason]),
  					exit(Reason)
  			end;
  		{error, Reason} ->
  			?notice("SSL transport accept errored:  ~p", [Reason]),
  			exit(Reason)
  	end.
  