remove Cstruct.t

mirage-net.opam

@@ -20,7 +20,6 @@ depends: [
   "dune" {>= "1.0"}
   "fmt"
   "macaddr" {>= "4.0.0"}
-  "cstruct" {>= "4.0.0"}
   "lwt" {>= "4.0.0"}
 ]
 synopsis: "Network signatures for MirageOS"

src/dune

@@ -1,4 +1,4 @@
 (library
  (name mirage_net)
  (public_name mirage-net)
- (libraries fmt cstruct macaddr lwt))
+ (libraries fmt macaddr lwt))

src/mirage_net.ml

@@ -53,8 +53,8 @@ module type S = sig
   val pp_error: error Fmt.t
   type t
   val disconnect : t -> unit Lwt.t
-  val write: t -> size:int -> (Cstruct.t -> int) -> (unit, error) result Lwt.t
-  val listen: t -> header_size:int -> (Cstruct.t -> unit Lwt.t) -> (unit, error) result Lwt.t
+  val write: t -> size:int -> (Bytes.t -> int) -> (unit, error) result Lwt.t
+  val listen: t -> header_size:int -> (Bytes.t -> unit Lwt.t) -> (unit, error) result Lwt.t
   val mac: t -> Macaddr.t
   val mtu: t -> int
   val get_stats_counters: t -> stats

src/mirage_net.mli

@@ -57,15 +57,15 @@ module type S = sig
   (** Disconnect from the network device. While this might take some time to
       complete, it can never result in an error. *)
 
-  val write: t -> size:int -> (Cstruct.t -> int) -> (unit, error) result Lwt.t
+  val write: t -> size:int -> (Bytes.t -> int) -> (unit, error) result Lwt.t
   (** [write net ~size fill] allocates a buffer of length [size], where [size]
      must not exceed the interface maximum packet size ({!mtu} plus Ethernet
      header). The allocated buffer is zeroed and passed to the [fill] function
      which returns the payload length, which may not exceed the length of the
      buffer. When [fill] returns, a sub buffer is put on the wire: the allocated
      buffer from index 0 to the returned length. *)
 
-  val listen: t -> header_size:int -> (Cstruct.t -> unit Lwt.t) -> (unit, error) result Lwt.t
+  val listen: t -> header_size:int -> (Bytes.t -> unit Lwt.t) -> (unit, error) result Lwt.t
   (** [listen ~header_size net fn] waits for a [packet] with size at most
      [header_size + mtu] on the network device. When a [packet] is received, an
      asynchronous task is created in which [fn packet] is called. The ownership