Up

module Month

: sig
#
type t =
# | Jan
# | Feb
# | Mar
# | Apr
# | May
# | Jun
# | Jul
# | Aug
# | Sep
# | Oct
# | Nov
# | Dec
include Comparable.S_binable with type t := t
include Hashable.S_binable with type t := t
include Stringable.S with type t := t
#
val all : t list
#
val of_int : int -> t option

of_int i returns i'th month if i is in 1,2,...,12. Otherwise it returns None.

#
val of_int_exn : int -> t
#
val to_int : t -> int

to_int t returns an int in 1,2,...12.

#
val shift : t -> int -> t

shift t i goes forward (or backward) the specified number of months

#
module Export : sig
#
type month = t =
# | Jan
# | Feb
# | Mar
# | Apr
# | May
# | Jun
# | Jul
# | Aug
# | Sep
# | Oct
# | Nov
# | Dec
end
#
module Stable : sig
#
module V1 : sig
include sig
#
type __pa_nonrec_0 = t =
# | Jan
# | Feb
# | Mar
# | Apr
# | May
# | Jun
# | Jul
# | Aug
# | Sep
# | Oct
# | Nov
# | Dec
#
type t = __pa_nonrec_0 =
# | Jan
# | Feb
# | Mar
# | Apr
# | May
# | Jun
# | Jul
# | Aug
# | Sep
# | Oct
# | Nov
# | Dec
end
with type __pa_nonrec_0 := t
#
val compare : t -> t -> int
#
val bin_t : t Bin_prot.Type_class.t
#
val bin_read_t : t Bin_prot.Read.reader
#
val __bin_read_t__ : (int -> t) Bin_prot.Read.reader
#
val bin_reader_t : t Bin_prot.Type_class.reader
#
val bin_size_t : t Bin_prot.Size.sizer
#
val bin_write_t : t Bin_prot.Write.writer
#
val bin_writer_t : t Bin_prot.Type_class.writer
#
val t_of_sexp : Sexplib.Sexp.t -> t
#
val sexp_of_t : t -> Sexplib.Sexp.t
end
end
#
val t_of_sexp : Sexplib.Sexp.t -> t
#
val sexp_of_t : t -> Sexplib.Sexp.t
#
val bin_t : t Bin_prot.Type_class.t
#
val bin_read_t : t Bin_prot.Read.reader
#
val __bin_read_t__ : (int -> t) Bin_prot.Read.reader
#
val bin_reader_t : t Bin_prot.Type_class.reader
#
val bin_size_t : t Bin_prot.Size.sizer
#
val bin_write_t : t Bin_prot.Write.writer
#
val bin_writer_t : t Bin_prot.Type_class.writer
end