/
approx_common.mli
18 lines (17 loc) · 1.16 KB
/
approx_common.mli
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
(******************************************************************************)
(* *)
(* TypeRex OCaml Tools *)
(* *)
(* OCamlPro *)
(* *)
(* Copyright 2011-2012 OCamlPro *)
(* All rights reserved. See accompanying files for the terms under *)
(* which this file is distributed. In doubt, contact us at *)
(* contact@ocamlpro.com (http://www.ocamlpro.com/) *)
(* *)
(******************************************************************************)
(* Instead of raising an error when a CHAR, INT, INT32, INT64 or NATIVEINT
overflows, we just changed the returned value to take that into account. *)
type 'a overflow =
| InRange of 'a
| Overflow of string