diff options
author | Paweł Chmielowski <pchmielowski@process-one.net> | 2016-07-01 21:18:55 +0200 |
---|---|---|
committer | Paweł Chmielowski <pchmielowski@process-one.net> | 2016-07-01 21:20:10 +0200 |
commit | 0737958b45be015d734769cd9b6fa5e7ce01409f (patch) | |
tree | 50d5c54ebeb8a60aeac2b6fcac63223a92ee86d5 /src/nodetree_dag.erl | |
parent | Fix dependencies when using Elixir Mix (diff) |
Fix compilation issues on R19
Diffstat (limited to 'src/nodetree_dag.erl')
-rw-r--r-- | src/nodetree_dag.erl | 34 |
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]) -> |