chore: add My_opt.map to src-bs/decoders_util.ml

mattjbray · Jun 15, 2022 · 35d5add · 35d5add
1 parent 221f37b
commit 35d5add
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src-bs/decoders_util.ml b/src-bs/decoders_util.ml
@@ -24,6 +24,8 @@ end
 module My_opt = struct
   let return x = Some x
 
+  let map f x = Belt.Option.map x f
+
   let flat_map f x = Belt.Option.flatMap x f
 end
 
@@ -37,7 +39,7 @@ module My_list = struct
   let find_map f xs =
     xs
     |. Belt.List.getBy (fun x ->
-           match f x with Some _ -> true | None -> false)
+           match f x with Some _ -> true | None -> false )
     |. Belt.Option.flatMap f
 
 

diff --git a/src-bs/decoders_util.mli b/src-bs/decoders_util.mli
@@ -19,6 +19,8 @@ end
 module My_opt : sig
   val return : 'a -> 'a option
 
+  val map : ('a -> 'b) -> 'a option -> 'b option
+
   val flat_map : ('a -> 'b option) -> 'a option -> 'b option
 end