Sexp

lib/rsync_store.ml

@@ -14,6 +14,7 @@ type mode =
   | Copy
   | Hardlink
   | Hardlink_unsafe
+[@@deriving sexp]
 
 type t = {
   path : string;

lib/rsync_store.mli

@@ -8,6 +8,7 @@ type mode =
   | Hardlink_unsafe (** Reasonably fast and uses less disk space, but no
                         checksum verification. Only for testing during
                         development, do not use in production. *)
+[@@deriving sexp]
 
 val create : path:string -> ?mode:mode -> unit -> t Lwt.t
 (** [create ~path ?mode ()] creates a new rsync store where everything will

lib/store_spec.ml

@@ -1,14 +1,15 @@
 (** Configuration information to set up a store. *)
 
 open Lwt.Infix
+open Sexplib.Conv
 
 type t = [
   | `Btrfs of string  (* Path *)
   | `Zfs of string    (* Path with pool at end *)
   | `Rsync of (string * Rsync_store.mode)  (* Path for the root of the store *)
   | `Xfs of string    (* Path *)
   | `Docker of string (* Path *)
-]
+][@@deriving sexp]
 
 let is_absolute path = not (Filename.is_relative path)