1
2
3
4
5
6
7
8
9
10
11
include Grace_std
let sexp_of_t_of_to_string to_string t = Sexplib0.Sexp.Atom (to_string t)
let t_of_sexp_of_of_string of_string sexp =
let open Sexplib0 in
match sexp with
| Sexp.Atom str -> of_string str
| List _ ->
invalid_argf "@[<2>expected sexp atom, recieved list: @[%a@]@]" Sexp.pp_hum sexp
;;