Add cluster_nodes/1 function
This commit is contained in:
parent
53f5188cbb
commit
a5cac277c1
|
@ -27,7 +27,7 @@
|
|||
|
||||
%% Cluster mnesia
|
||||
-export([join_cluster/1, cluster_status/0, leave_cluster/0,
|
||||
remove_from_cluster/1, running_nodes/0]).
|
||||
remove_from_cluster/1, cluster_nodes/1, running_nodes/0]).
|
||||
|
||||
%% Schema and tables
|
||||
-export([copy_schema/1, delete_schema/0, del_schema_copy/1,
|
||||
|
@ -213,10 +213,18 @@ connect(Node) ->
|
|||
Error -> Error
|
||||
end.
|
||||
|
||||
%% @doc Running nodes
|
||||
%% @doc Running nodes.
|
||||
-spec(running_nodes() -> list(node())).
|
||||
running_nodes() ->
|
||||
mnesia:system_info(running_db_nodes).
|
||||
running_nodes() -> cluster_nodes(running).
|
||||
|
||||
%% @doc Cluster nodes.
|
||||
-spec(cluster_nodes(all | running | stopped) -> [node()]).
|
||||
cluster_nodes(all) ->
|
||||
mnesia:system_info(db_nodes);
|
||||
cluster_nodes(running) ->
|
||||
mnesia:system_info(running_db_nodes);
|
||||
cluster_nodes(stopped) ->
|
||||
cluster_nodes(all) -- cluster_nodes(running).
|
||||
|
||||
%% @private
|
||||
ensure_ok(ok) -> ok;
|
||||
|
|
Loading…
Reference in New Issue