aboutsummaryrefslogtreecommitdiff
path: root/src/nodetree_dag.erl
diff options
context:
space:
mode:
authorPaweł Chmielowski <pchmielowski@process-one.net>2016-07-01 21:18:55 +0200
committerPaweł Chmielowski <pchmielowski@process-one.net>2016-07-01 21:20:10 +0200
commit0737958b45be015d734769cd9b6fa5e7ce01409f (patch)
tree50d5c54ebeb8a60aeac2b6fcac63223a92ee86d5 /src/nodetree_dag.erl
parentFix dependencies when using Elixir Mix (diff)
Fix compilation issues on R19
Diffstat (limited to 'src/nodetree_dag.erl')
-rw-r--r--src/nodetree_dag.erl34
1 files changed, 11 insertions, 23 deletions
diff --git a/src/nodetree_dag.erl b/src/nodetree_dag.erl
index a105db832..387d98413 100644
--- a/src/nodetree_dag.erl
+++ b/src/nodetree_dag.erl
@@ -167,12 +167,8 @@ oid(Key, Name) -> {Key, Name}.
%% Key = jlib:jid() | host()
%% Node = string()
--spec(find_node/2 ::
- (
- Key :: mod_pubsub:hostPubsub(),
- Node :: mod_pubsub:nodeId())
- -> mod_pubsub:pubsubNode() | false
- ).
+-spec find_node(Key :: mod_pubsub:hostPubsub(), Node :: mod_pubsub:nodeId()) ->
+ mod_pubsub:pubsubNode() | false.
find_node(Key, Node) ->
case mnesia:read(pubsub_node, oid(Key, Node), read) of
[] -> false;
@@ -188,14 +184,11 @@ find_opt(Key, Default, Options) ->
_ -> Default
end.
--spec(traversal_helper/4 ::
- (
- Pred :: fun(),
- Tr :: fun(),
- Host :: mod_pubsub:hostPubsub(),
- Nodes :: [mod_pubsub:nodeId(),...])
- -> [{Depth::non_neg_integer(), Nodes::[mod_pubsub:pubsubNode(),...]}]
- ).
+-spec traversal_helper(Pred :: fun(), Tr :: fun(), Host :: mod_pubsub:hostPubsub(),
+ Nodes :: [mod_pubsub:nodeId(),...]) ->
+ [{Depth::non_neg_integer(),
+ Nodes::[mod_pubsub:pubsubNode(),...]}].
+
traversal_helper(Pred, Tr, Host, Nodes) ->
traversal_helper(Pred, Tr, 0, Host, Nodes, []).
@@ -220,15 +213,10 @@ remove_config_parent(Node, [{collection, Parents} | T], Acc) ->
remove_config_parent(Node, [H | T], Acc) ->
remove_config_parent(Node, T, [H | Acc]).
--spec(validate_parentage/3 ::
- (
- Key :: mod_pubsub:hostPubsub(),
- Owners :: [ljid(),...],
- Parent_Nodes :: [mod_pubsub:nodeId()])
- -> true
- %%%
- | {error, xmlel()}
- ).
+-spec validate_parentage(Key :: mod_pubsub:hostPubsub(), Owners :: [ljid(),...],
+ Parent_Nodes :: [mod_pubsub:nodeId()]) ->
+ true | {error, xmlel()}.
+
validate_parentage(_Key, _Owners, []) ->
true;
validate_parentage(Key, Owners, [[] | T]) ->