aboutsummaryrefslogtreecommitdiffstats
path: root/lib/cosEventDomain/src/cosEventDomainApp.erl
diff options
context:
space:
mode:
authorNiclas Eklund <[email protected]>2011-02-17 14:09:39 +0100
committerNiclas Eklund <[email protected]>2011-02-17 14:09:39 +0100
commitcc147b3b7f9cde5a521d42e50bce8464597a4965 (patch)
tree7b9a6e3862a4d4d7b413cd972d9fc47b15ab2524 /lib/cosEventDomain/src/cosEventDomainApp.erl
parentf5a6e678c9044896782230368ff8de266bfd9415 (diff)
downloadotp-cc147b3b7f9cde5a521d42e50bce8464597a4965.tar.gz
otp-cc147b3b7f9cde5a521d42e50bce8464597a4965.tar.bz2
otp-cc147b3b7f9cde5a521d42e50bce8464597a4965.zip
More specs removed.
Diffstat (limited to 'lib/cosEventDomain/src/cosEventDomainApp.erl')
-rw-r--r--lib/cosEventDomain/src/cosEventDomainApp.erl13
1 files changed, 8 insertions, 5 deletions
diff --git a/lib/cosEventDomain/src/cosEventDomainApp.erl b/lib/cosEventDomain/src/cosEventDomainApp.erl
index 3cb4055fba..734e4deccb 100644
--- a/lib/cosEventDomain/src/cosEventDomainApp.erl
+++ b/lib/cosEventDomain/src/cosEventDomainApp.erl
@@ -270,14 +270,17 @@ create_id() ->
get_qos([]) ->
[];
get_qos(Properties) ->
- get_qos(Properties, [], []).
+ case get_qos(Properties, [], []) of
+ {ok, Supported} ->
+ Supported;
+ {error, Unsupported} ->
+ corba:raise(#'CosNotification_UnsupportedQoS'{qos_err = Unsupported})
+ end.
-%% To avoid dialyzer warnings due to the use of exit/throw.
--spec(get_qos/3 :: (_, _, _) -> no_return()).
get_qos([], Supported, []) ->
- Supported;
+ {ok, Supported};
get_qos([], _, Unsupported) ->
- corba:raise(#'CosNotification_UnsupportedQoS'{qos_err = Unsupported});
+ {error, Unsupported};
get_qos([#'CosNotification_Property'{name = ?CycleDetection,
value= #any{value = ?AuthorizeCycles}}|T],
Supported, Unsupported) ->