@@ -126,30 +126,21 @@ connect(Name, SndSettleMode, Uri, Postfix, Addr, Map, AttachFun) ->
126126 % needs to be sync, i.e. awaits the 'attach' event as
127127 % else we may try to use the link before it is ready
128128 Durability = maps :get (durability , Map , unsettled_state ),
129- AttachArgs = case Postfix of
130- " sender" ->
131- SenderCapabilities = maps :get (sender_capabilities , Map , undefined ),
132- #{
133- name => LinkName ,
134- role => {sender , #{address => Addr ,
135- durable => Durability ,
136- capabilities => SenderCapabilities }},
137- snd_settle_mode => SndSettleMode ,
138- rcv_settle_mode => first
139- };
140- " receiver" ->
141- ReceiverCapabilities = maps :get (receiver_capabilities , Map , undefined ),
142- #{
143- name => LinkName ,
144- role => {receiver , #{address => Addr ,
145- durable => Durability ,
146- capabilities => ReceiverCapabilities }, self ()},
147- snd_settle_mode => SndSettleMode ,
148- rcv_settle_mode => first ,
149- filter => #{},
150- properties => #{}
151- }
152- end ,
129+ LinkCapabilities = maps :get (
130+ case Postfix of
131+ " sender" -> sender_capabilities ;
132+ " receiver" -> receiver_capabilities
133+ end , Map , undefined ),
134+ AttachArgs = #{
135+ name => LinkName ,
136+ role => {binary_to_term (list_to_binary (Postfix )),
137+ #{address => Addr ,
138+ durable => Durability ,
139+ capabilities => LinkCapabilities }
140+ },
141+ snd_settle_mode => SndSettleMode ,
142+ rcv_settle_mode => first
143+ },
153144 {ok , LinkRef } = AttachFun (Sess , AttachArgs ),
154145 {Conn , Sess , LinkRef }.
155146
0 commit comments