remove calls to mirage-profile in vnetif_backends.ml

mirage · May 7, 2024 · 33b9ddf · 33b9ddf
1 parent bb600e2
commit 33b9ddf
Showing 1 changed file with 4 additions and 9 deletions.
diff --git a/test/vnetif_backends.ml b/test/vnetif_backends.ml
@@ -101,10 +101,8 @@ module Uniform_packet_loss : Backend = struct
 
   let write t id ~size fill =
     if Random.float 1.0 < drop_p then
-      begin
-        MProf.Trace.label "pkt_drop";
-        Lwt.return (Ok ()) (* drop packet *)
-      end else
+      Lwt.return (Ok ()) (* drop packet *)
+    else
       X.write t id ~size fill (* pass to real write *)
 
   let create () =
@@ -125,10 +123,8 @@ module Uniform_no_payload_packet_loss : Backend = struct
 
   let write t id ~size fill =
     if size <= no_payload_len && Random.float 1.0 < drop_p then
-      begin
-        MProf.Trace.label "pkt_drop";
-        Lwt.return (Ok ()) (* drop packet *)
-      end else
+      Lwt.return (Ok ()) (* drop packet *)
+    else
       X.write t id ~size fill (* pass to real write *)
 
   let create () =
@@ -216,7 +212,6 @@ module On_off_switch = struct
     if not !send_packets then
       begin
         Logs.info (fun f -> f "write dropping 1 packet");
-        MProf.Trace.label "pkt_drop";
         Lwt.return (Ok ()) (* drop packet *)
       end else
       X.write t id ~size fill (* pass to real write *)