open Core
module Unix = Core_unix
module Time = Time_float_unix

(* Examples from ../README.md *)

let _basic_use = [%sexp { a = "hello"; b = (Time.now () : Time.t) }]

let _expressions_with_their_evaluations ~x ~y ~z =
  [%sexp ~~(x : int), (y + z : int), "literal"]
;;

let _recomended_use_for_errors ~tmpfile ~dst =
  try Unix.rename ~src:tmpfile ~dst with
  | exn ->
    raise_s
      [%sexp
        "Error while renaming file"
        , { source = (tmpfile : string); dest = (dst : string); exn : exn }]
;;
