Account for the nested-pair variety of context spec.
This commit is contained in:
		
							parent
							
								
									8dfc5c4a99
								
							
						
					
					
						commit
						e1c34fefc7
					
				| 
						 | 
				
			
			@ -35,14 +35,19 @@ check_contexts(Listeners, Contexts) when
 | 
			
		|||
        undefined ->
 | 
			
		||||
            {error, no_default_listener};
 | 
			
		||||
        _ ->
 | 
			
		||||
            Checks = lists:foldl(
 | 
			
		||||
                       fun ({_Name, Listener}, Acc) ->
 | 
			
		||||
            HasListener = fun(Listener, Acc) ->
 | 
			
		||||
                                  case proplists:get_value(Listener, Listeners) of
 | 
			
		||||
                                      undefined ->
 | 
			
		||||
                                          [Listener | Acc];
 | 
			
		||||
                                      _ ->
 | 
			
		||||
                                          Acc
 | 
			
		||||
                                  end
 | 
			
		||||
                          end,
 | 
			
		||||
            Checks = lists:foldl(
 | 
			
		||||
                       fun ({_Name, {Listener, _Path}}, Acc) ->
 | 
			
		||||
                               HasListener(Listener, Acc);
 | 
			
		||||
                           ({_Name, Listener}, Acc) ->
 | 
			
		||||
                               HasListener(Listener, Acc)
 | 
			
		||||
                       end, [], Contexts),
 | 
			
		||||
            case Checks of
 | 
			
		||||
                [] ->
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue