From 69d30df9ac93976743c3decf56c471508cb6f897 Mon Sep 17 00:00:00 2001 From: Adam Kocoloski Date: Sat, 10 Jul 2010 15:50:17 -0400 Subject: thank you dialyzer --- src/rexi.erl | 4 ++-- src/rexi_server.erl | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/rexi.erl b/src/rexi.erl index 8f1d72bf..21250210 100644 --- a/src/rexi.erl +++ b/src/rexi.erl @@ -16,7 +16,7 @@ restart() -> stop(), start(). %% @equiv cast(Node, self(), MFA) --spec cast(node(), mfa()) -> reference(). +-spec cast(node(), {atom(), atom(), list()}) -> reference(). cast(Node, MFA) -> cast(Node, self(), MFA). @@ -27,7 +27,7 @@ cast(Node, MFA) -> %% Second, the remote process is monitored. If it exits with a Reason other %% than normal, Caller will receive a message of the form %% `{Ref, {rexi_EXIT, Reason}}' where Ref is the returned reference. --spec cast(node(), pid(), mfa()) -> reference(). +-spec cast(node(), pid(), {atom(), atom(), list()}) -> reference(). cast(Node, Caller, MFA) -> Ref = make_ref(), ok = gen_server:cast({?SERVER, Node}, {doit, {Caller,Ref}, MFA}), diff --git a/src/rexi_server.erl b/src/rexi_server.erl index 127e088c..70296d5b 100644 --- a/src/rexi_server.erl +++ b/src/rexi_server.erl @@ -53,7 +53,7 @@ code_change(_OldVsn, St, _Extra) -> {ok, St}. %% @doc initializes a process started by rexi_server. --spec init_p({pid(),reference()}, mfa()) -> any(). +-spec init_p({pid(), reference()}, {atom(), atom(), list()}) -> any(). init_p(From, {M,F,A}) -> put(rexi_from, From), try apply(M, F, A) catch _:Reason -> exit(Reason) end. -- cgit v1.2.3