Add has_key/2 dictionary method.

[hope.git] / src / hope_gen_dictionary.erl

diff --git a/src/hope_gen_dictionary.erl b/src/hope_gen_dictionary.erl
index 0d45ecd..ea0f551 100644 (file)
--- a/src/hope_gen_dictionary.erl
+++ b/src/hope_gen_dictionary.erl
@@ -15,6 +15,12 @@
 -callback get(t(K, V), K) ->
     hope_option:t(V).
 
+-callback get(t(K, V), K, V) ->
+    V.
+
+-callback get(t(K, V), K, V, fun((V) -> boolean())) ->
+    V.
+
 -callback set(t(K, V), K, V) ->
     t(K, V).
 
@@ -42,3 +48,6 @@
 
 -callback to_kv_list(t(K, V)) ->
     [{K, V}].
+
+-callback has_key(t(K, _), K) ->
+    boolean().