From 3e55cb62c9053895412b1cf2a65d54ef90eda34c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Wed, 25 May 2011 23:02:40 +0200 Subject: Refresh the type specifications. Following discussions on #erlounge. Also fixes compilation in R14B03 and fixes a few underspecs dialyzer warnings. --- src/cowboy_acceptor.erl | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) (limited to 'src/cowboy_acceptor.erl') diff --git a/src/cowboy_acceptor.erl b/src/cowboy_acceptor.erl index 9bcc733..830828e 100644 --- a/src/cowboy_acceptor.erl +++ b/src/cowboy_acceptor.erl @@ -18,9 +18,8 @@ %% API. --spec start_link(LSocket::inet:socket(), Transport::module(), - Protocol::module(), Opts::term(), - MaxConns::non_neg_integer(), ReqsSup::pid()) -> {ok, Pid::pid()}. +-spec start_link(inet:socket(), module(), module(), any(), + non_neg_integer(), pid()) -> {ok, pid()}. start_link(LSocket, Transport, Protocol, Opts, MaxConns, ReqsSup) -> Pid = spawn_link(?MODULE, acceptor, [LSocket, Transport, Protocol, Opts, MaxConns, ReqsSup]), @@ -28,9 +27,8 @@ start_link(LSocket, Transport, Protocol, Opts, MaxConns, ReqsSup) -> %% Internal. --spec acceptor(LSocket::inet:socket(), Transport::module(), - Protocol::module(), Opts::term(), - MaxConns::non_neg_integer(), ReqsSup::pid()) -> no_return(). +-spec acceptor(inet:socket(), module(), module(), any(), + non_neg_integer(), pid()) -> no_return(). acceptor(LSocket, Transport, Protocol, Opts, MaxConns, ReqsSup) -> case Transport:accept(LSocket, 2000) of {ok, CSocket} -> @@ -47,7 +45,7 @@ acceptor(LSocket, Transport, Protocol, Opts, MaxConns, ReqsSup) -> end, ?MODULE:acceptor(LSocket, Transport, Protocol, Opts, MaxConns, ReqsSup). --spec limit_reqs(MaxConns::non_neg_integer(), ReqsSup::pid()) -> ok. +-spec limit_reqs(non_neg_integer(), pid()) -> ok. limit_reqs(MaxConns, ReqsSup) -> Counts = supervisor:count_children(ReqsSup), Active = lists:keyfind(active, 1, Counts), -- cgit v1.2.3