Source file `floatable.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
(** Module type with float conversion functions. *)

open! Import

module type S = sig
  type t

  val of_float : float -> t
  val to_float : t -> float
end

module type S_local_input = sig
  type t

  val of_float : local_ float -> t
  val to_float : local_ t -> float
end