package MlFront_Core

  1. Overview
  2. Docs

Source file Party.ml

1
2
3
4
5
6
type t = [ `You | `Us | `Them ]

let show = function `You -> "You" | `Us -> "Us" | `Them -> "Them"
let pp ppf v = Format.pp_print_string ppf (show v)
let ord = function `You -> 0 | `Us -> 1 | `Them -> 2
let compare t1 t2 = ord t1 - ord t2