remove unnecessary pretty-printer

ocurrent · Mar 18, 2021 · dddf770 · dddf770
1 parent 59426ac
commit dddf770
Show file tree

Hide file tree

Showing 3 changed files with 0 additions and 27 deletions.
diff --git 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
@@ -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
@@ -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;