package cps_toolbox

  1. Overview
  2. Docs

Source file Order.ml

1
2
3
4
5
6
7
8
9
10
11
12
type t =
  | EQ
  | LT
  | GT

let _total left right =
  if left = right then EQ else
  if left < right then LT else
  GT

let int = _total
let string = _total