Previous  Up  Next

Module MarshalCard (.ml)

module MarshalCard: sig .. end
type suit =
| Spades
| Hearts
| Diamonds
| Clubs 
val __suit_of_sexp__ : Sexplib.Sexp.t -> suit
val suit_of_sexp : Sexplib.Sexp.t -> suit
val sexp_of_suit : suit -> Sexplib.Sexp.t
type rank =
| One
| Two
| Three
| Four
| Five
| Six
| Seven
| Eight
| Nine
| Ten
| Jack
| Queen
| King
| Ace 
val __rank_of_sexp__ : Sexplib.Sexp.t -> rank
val rank_of_sexp : Sexplib.Sexp.t -> rank
val sexp_of_rank : rank -> Sexplib.Sexp.t
type card = {
   suit : suit;
   rank : rank;
} 
val __card_of_sexp__ : Sexplib.Sexp.t -> card
val card_of_sexp : Sexplib.Sexp.t -> card
val sexp_of_card : card -> Sexplib.Sexp.t
val main : unit -> unit Async.Std.Deferred.t