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=cb1c4a401fe0bc0ac92a806ad2ee8076fff8b6b9;hp=7b25797ed3b9ef0b57c660e1f4665a1a45adaba8;hb=e0fbc1da088f6d4a87c06c80ad40e2d40339b12a;hpb=352ddeb475ab48aabfab59558827e0e8d927551f

diff --git a/src/hope_kv_list.erl b/src/hope_kv_list.erl
index 7b25797..cb1c4a4 100644
--- a/src/hope_kv_list.erl
+++ b/src/hope_kv_list.erl
@@ -13,8 +13,9 @@
 
 -export(
     [ empty/0
-    , get/2
-    , get/3
+    , get/2  % get option
+    , get/3  % get existing or default
+    , get/4  % get existing if valid, or default
     , set/3
     , update/3
     , pop/2
@@ -75,6 +76,13 @@ get(T, K, Default) ->
     Vopt = get(T, K),
     hope_option:get(Vopt, Default).
 
+-spec get(t(K, V), K, V, fun((V) -> boolean())) ->
+    V.
+get(T, K, Default, IsValid) ->
+    VOpt1 = get(T, K),
+    VOpt2 = hope_option:validate(VOpt1, IsValid),
+    hope_option:get(VOpt2, Default).
+
 -spec set(t(K, V), K, V) ->
     t(K, V).
 set(T, K, V) ->