Maybe Computation Expression Builder

maybe.fs

namespace Utility.Monads

  [<AutoOpen>]
  module MaybeMonad = 
      type MaybeBuilder() =
          member this.Zero() = this.Return ()
          member this.Bind(m, f) = Option.bind f m
          member this.Return(x) = Some x
          member this.ReturnFrom(x) = x
          member this.Yield(x) = Some x
          member this.YieldFrom(x) = x
      let maybe = MaybeBuilder()