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