Git-Mirrors/qubes-mirage-firewall
1
0
Fork 0
mirror of https://github.com/mirage/qubes-mirage-firewall.git synced 2025-10-28 13:11:09 -04:00
Code Issues Projects Releases Packages Wiki Activity

Use List.hd instead of [@warning "-8"]

Browse source
This commit is contained in:
Calascibetta Romain 2024-05-22 11:39:37 +02:00 • committed by Hannes Mehnert
parent 98506f5b1b
commit e179ee36b3
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
dao.ml
View file

@ -80,7 +80,7 @@ let vifs client domid =
let vif = { ClientVif.domid; device_id } in
let get_client_ip () =
let* str = Xen_os.Xs.read handle (Fmt.str "%s/%d/ip" path device_id) in
let[@warning "-8"] client_ip :: _ = String.split_on_char ' ' str in
let client_ip = List.hd (String.split_on_char ' ' str) in
Lwt.return_some (vif, Ipaddr.V4.of_string_exn client_ip) in
Lwt.catch get_client_ip @@ function
| Xs_protocol.Enoent _ -> Lwt.return_none