.ocamlinit 559 Bytes
Newer Older
Stephane Glondu's avatar
Stephane Glondu committed
1 2 3 4 5 6
#use "topfind";;
#require "zarith";;
#require "calendar";;
#require "uuidm";;
#require "atdgen";;
#require "yojson";;
7
#require "cryptokit";;
Stephane Glondu's avatar
Stephane Glondu committed
8

Stephane Glondu's avatar
Stephane Glondu committed
9 10 11 12
#camlp4o;;
#require "lwt.unix";;
#require "lwt.syntax";;

Stephane Glondu's avatar
Stephane Glondu committed
13
#directory "_build/src/lib";;
Stephane Glondu's avatar
Stephane Glondu committed
14 15 16
#load "lib.cma";;

let pp_print_datetime ppf x =
17
  Format.pp_print_string ppf (Serializable_builtin_j.string_of_datetime x)
Stephane Glondu's avatar
Stephane Glondu committed
18 19 20
;;

let pp_print_uuid ppf x =
21
  Format.pp_print_string ppf (Serializable_builtin_j.string_of_uuid x)
Stephane Glondu's avatar
Stephane Glondu committed
22 23 24 25 26
;;

#install_printer Z.pp_print;;
#install_printer pp_print_datetime;;
#install_printer pp_print_uuid;;