diff options
| author | Niclas Eklund <[email protected]> | 2011-02-17 14:09:39 +0100 |
|---|---|---|
| committer | Niclas Eklund <[email protected]> | 2011-02-17 14:09:39 +0100 |
| commit | cc147b3b7f9cde5a521d42e50bce8464597a4965 (patch) | |
| tree | 7b9a6e3862a4d4d7b413cd972d9fc47b15ab2524 /lib/cosEventDomain/src/cosEventDomainApp.erl | |
| parent | f5a6e678c9044896782230368ff8de266bfd9415 (diff) | |
| download | otp-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.erl | 13 |
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) -> |