Source file `notty_top.ml`

1
2
3
4
5
6
7
8
9
10
11
(* Copyright (c) 2017 David Kaloper Meršinjak. All rights reserved.
   See LICENSE.md. *)

(* Force linking with Notty for e.g. Omod. *)
let _ = Sys.opaque_identity Notty.I.empty

#if OCAML_VERSION >= (4,14,0)
let _ = Toploop.use_silently Format.err_formatter (Toploop.File "notty_top_init.ml")
#else
let _ = Toploop.use_silently Format.err_formatter "notty_top_init.ml"
#endif