summaryrefslogtreecommitdiff
path: root/src/Errors.ml
blob: dcdc91023c08bcd1a72d0253c76dd4d57c10ab98 (plain)
1
2
3
4
5
exception IntegerOverflow of unit

exception Unimplemented of string

let unimplemented msg = raise (Unimplemented ("unimplemented: " ^ msg))