Add Option.some

src/stdune/option.ml

@@ -31,6 +31,8 @@ let value_exn = function
   | Some x -> x
   | None -> invalid_arg "Option.value_exn"
 
+let some x = Some x
+
 let some_if cond x =
   if cond then Some x else None
 

src/stdune/option.mli

@@ -17,6 +17,7 @@ val iter : 'a t -> f:('a -> unit) -> unit
 val value : 'a t -> default:'a -> 'a
 val value_exn : 'a t -> 'a
 
+val some : 'a -> 'a t
 val some_if : bool -> 'a -> 'a t
 
 val is_some : _ t -> bool