(*
 * Copyright (c) Facebook, Inc. and its affiliates.
 *
 * This source code is licensed under the MIT license found in the
 * LICENSE file in the root directory of this source tree.
 *)

open! NS0
include module type of Base.Option

val pp : ('a_pp -> 'a -> unit, unit) fmt -> 'a_pp -> 'a option pp
(** Pretty-print an option. *)

val or_else : f:(unit -> 'a option) -> 'a option -> 'a option
(** [or_else ~f] is [f ()] on [None] and otherwise identity *)

val cons : 'a t -> 'a list -> 'a list

module Import : sig
  include Monad_syntax with type 'a t := 'a option
  include module type of Monad_infix
end