package toffee

  1. Overview
  2. Docs

Source file position.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
type t = Relative | Absolute

let default = Relative
let to_string = function Relative -> "relative" | Absolute -> "absolute"

let equal a b =
  match (a, b) with
  | Relative, Relative -> true
  | Absolute, Absolute -> true
  | _ -> false

let compare a b =
  let to_int = function Relative -> 0 | Absolute -> 1 in
  Int.compare (to_int a) (to_int b)

let pp fmt t = Format.pp_print_string fmt (to_string t)