Source file `nifty.ml`

1
2
3
4
5
6
7
8
9
open Import

module Exn = struct
  type t = exn

  let sexp_of_t = Sexp_conv.sexp_of_exn
  let pp fmt t = Sexp.pp fmt t
  let to_string t = Printexc.to_string t
end