10
1
mirror of https://gitlab.com/scemama/QCaml.git synced 2024-12-23 12:53:46 +01:00
QCaml/common/lib/non_negative_float.ml

15 lines
317 B
OCaml
Raw Normal View History

2020-12-27 23:08:12 +01:00
type t = float
2018-02-23 18:44:31 +01:00
let of_float x =
2018-02-25 00:53:09 +01:00
if x < 0. then invalid_arg (__FILE__^": of_float");
2018-02-23 18:44:31 +01:00
x
2020-12-27 23:08:12 +01:00
external to_float : t -> float = "%identity"
2018-02-24 23:57:38 +01:00
external unsafe_of_float : float -> t = "%identity"
2018-02-23 18:44:31 +01:00
let to_string x =
let f = to_float x in string_of_float f
let of_string x =
let f = float_of_string x in of_float f