From 825e350da0408d78e0f62b97567de1d021d03048 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Thu, 5 Dec 2019 15:19:38 -0600
Subject: [PATCH] feat(sexp): reexport atom/list cstors

---
 src/sexp/CCSexp.ml      |  2 ++
 src/sexp/CCSexp_intf.ml | 13 +++++++++++++
 2 files changed, 15 insertions(+)

diff --git a/src/sexp/CCSexp.ml b/src/sexp/CCSexp.ml
index 54345c49..a533ebfe 100644
--- a/src/sexp/CCSexp.ml
+++ b/src/sexp/CCSexp.ml
@@ -18,6 +18,8 @@ module Make(Sexp : SEXP) = struct
   type t = Sexp.t
   type sexp = t
 
+  let atom = Sexp.atom
+  let list = Sexp.list
   let of_int x = Sexp.atom (string_of_int x)
   let of_float x = Sexp.atom (string_of_float x)
   let of_bool x = Sexp.atom (string_of_bool x)
diff --git a/src/sexp/CCSexp_intf.ml b/src/sexp/CCSexp_intf.ml
index 2461f311..20ae28e1 100644
--- a/src/sexp/CCSexp_intf.ml
+++ b/src/sexp/CCSexp_intf.ml
@@ -30,11 +30,24 @@ module type S = sig
   type t
   type sexp = t
 
+  (** {2 Re-exports} *)
+
+  val atom : string -> t
+  (** Make an atom out of this string.
+      @since NEXT_RELEASE *)
+
+  val list : t list -> t
+  (** Make a Sexpr of this list.
+      @since NEXT_RELEASE *)
+
+  (** {2 Constructors} *)
+
   val of_int : int -> t
   val of_bool : bool -> t
   val of_list : t list -> t
   val of_rev_list : t list -> t  
   (** Reverse the list. *)
+
   val of_float : float -> t
   val of_unit : t
   val of_pair : t * t -> t