X-Git-Url: https://git.xandkar.net/?p=hope.git;a=blobdiff_plain;f=src%2Fhope_kv_list.erl;fp=src%2Fhope_kv_list.erl;h=c12f3b4e3f9f604afc3c2c4df846f648eb4bb4b4;hp=cb1c4a401fe0bc0ac92a806ad2ee8076fff8b6b9;hb=67535be2404f057f0df3e128c24b484f066996a4;hpb=e0fbc1da088f6d4a87c06c80ad40e2d40339b12a

diff --git a/src/hope_kv_list.erl b/src/hope_kv_list.erl
index cb1c4a4..c12f3b4 100644
--- a/src/hope_kv_list.erl
+++ b/src/hope_kv_list.erl
@@ -25,6 +25,7 @@
     , fold/3
     , of_kv_list/1
     , to_kv_list/1
+    , has_key/2
     , find_unique_presence_violations/2  % No optional keys
     , find_unique_presence_violations/3  % Specify optional keys
     , validate_unique_presence/2  % No optional keys
@@ -206,6 +207,10 @@ presence_violations_to_list(#hope_kv_list_presence_violations
         end,
     ErrorDups ++ ErrorMissing ++ ErrorUnsupported.
 
+-spec has_key(t(K, _), K) ->
+    boolean().
+has_key(T, K1) ->
+    lists:any(fun ({K2, _}) -> K1 =:= K2 end, T).
 
 %% ============================================================================
 %% Helpers