package grace

  1. Overview
  2. Docs

Source file import.ml

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
;;