From dddf770fa7ceca976ae3b7d2b7c6939b558505b5 Mon Sep 17 00:00:00 2001
From: Patrick Ferris <pf341@patricoferris.com>
Date: Thu, 18 Mar 2021 12:27:18 +0000
Subject: [PATCH] remove unnecessary pretty-printer

---
 lib/runc_sandbox.ml  | 17 -----------------
 lib/s.ml             |  3 ---
 test/mock_sandbox.ml |  7 -------
 3 files changed, 27 deletions(-)

diff --git a/lib/runc_sandbox.ml b/lib/runc_sandbox.ml
index 1b94a9ee..eca16d0a 100644
--- a/lib/runc_sandbox.ml
+++ b/lib/runc_sandbox.ml
@@ -13,23 +13,6 @@ type config = {
   fast_sync : bool;
 } [@@deriving sexp]
 
-let pp ppf =
-  let fields =
-    [
-      Fmt.field ~label:Fmt.string "runc_state_dir"
-        (fun (t : t) -> t.runc_state_dir)
-        Fmt.string;
-      Fmt.field ~label:Fmt.string "fast_sync"
-        (fun (t : t) -> t.fast_sync)
-        Fmt.bool;
-      Fmt.field ~label:Fmt.string "arches"
-        (fun (t : t) -> t.arches)
-        Fmt.(brackets @@ list ~sep:comma string);
-    ]
-  in
-  let r = Fmt.(braces @@ record fields) in
-  Fmt.(pf ppf "runc state:@, %a" r)
-
 let get_machine () =
   let ch = Unix.open_process_in "uname -m" in
   let arch = input_line ch in
diff --git a/lib/s.ml b/lib/s.ml
index 5c7a5132..d5709dd9 100644
--- a/lib/s.ml
+++ b/lib/s.ml
@@ -64,9 +64,6 @@ end
 module type SANDBOX = sig
   type t
 
-  val pp : t Fmt.t
-  (** A pretty-printer for sandbox environments *)
-
   type config [@@deriving sexp]
   (** The type of sandbox configurations *)
 
diff --git a/test/mock_sandbox.ml b/test/mock_sandbox.ml
index 916a462b..3b62c0dd 100644
--- a/test/mock_sandbox.ml
+++ b/test/mock_sandbox.ml
@@ -17,13 +17,6 @@ type config = {
   dir : string;
 }[@@deriving sexp]
 
-let pp ppf = 
-  let fields = [
-    Fmt.field ~label:Fmt.string "dir" (fun (t : t) -> t.dir) Fmt.string;
-  ] in 
-  let r = Fmt.(braces @@ record fields) in 
-  Fmt.(pf ppf "mock = %a" r)
-
 module Saved_context = struct
   type t = {
     env : Config.env;