Replace deprecated Cstruct.copy with to_string (#123)

* Replace deprecated Cstruct.copy with to_string Co-authored-by: Hannes Mehnert <hannes@mehnert.org> Co-authored-by: Christiano Haesbaert <haesbaert@haesbaert.org>
mirage · Apr 4, 2023 · 7a874ed · 7a874ed
1 parent d39be5f
commit 7a874ed
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/dhcp_wire.ml b/lib/dhcp_wire.ml
@@ -651,10 +651,10 @@ let options_of_buf buf buf_len =
             (get_ip_tuple_list ())
       in
       let get_string () =  if len < 1 then invalid_arg bad_len else
-          Cstruct.copy body 0 len
+          Cstruct.to_string ~len body
       in
       let get_client_id () =  if len < 2 then invalid_arg bad_len else
-          let s = Cstruct.copy body 1 (len - 1) in
+          let s = Cstruct.to_string ~off:1 ~len:(len - 1) body in
           let htype = Cstruct.get_uint8 body 0 in
           if htype = 1 && len = 7 then
             Hwaddr (Macaddr.of_octets_exn s)