Prefix generic interface names with "gen_"

[hope.git] / src / hope_option.erl

diff --git a/src/hope_option.erl b/src/hope_option.erl
index 180c416..5721628 100644 (file)
--- a/src/hope_option.erl
+++ b/src/hope_option.erl
@@ -1,6 +1,6 @@
 -module(hope_option).
 
--behavior(hope_monad).
+-behavior(hope_gen_monad).
 
 -export_type(
     [ t/1
@@ -14,6 +14,7 @@
     , iter/2
     , pipe/2
     , of_result/1
+    , of_undefined/1
     ]).
 
 
@@ -65,3 +66,8 @@ pipe([F|Fs], X) ->
     t(A).
 of_result({ok, X})    -> {some, X};
 of_result({error, _}) -> none.
+
+-spec of_undefined(undefined | A) ->
+    t(A).
+of_undefined(undefined) -> none;
+of_undefined(X)         -> {some, X}.