mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-08 20:25:28 -05:00
20 lines
367 B
OCaml
20 lines
367 B
OCaml
(* This file is free software, part of containers. See file "license" for more details. *)
|
|
|
|
|
|
|
|
type t = bool
|
|
|
|
let equal (a : bool) b = Stdlib.( = ) a b
|
|
let compare (a : bool) b = Stdlib.compare a b
|
|
|
|
let to_int (x : bool) : int =
|
|
if x then
|
|
1
|
|
else
|
|
0
|
|
|
|
let of_int x : t = x <> 0
|
|
|
|
type 'a printer = Format.formatter -> 'a -> unit
|
|
|
|
let pp = Format.pp_print_bool
|