Git-Mirrors/qubes-mirage-firewall
1
0
Fork 0
mirror of https://github.com/mirage/qubes-mirage-firewall.git synced 2025-01-13 16:19:27 -05:00
Code Issues Packages Projects Releases Wiki Activity

Add a comment about our usage of List.hd (which can fail) and String.split_on_char

Browse Source
This commit is contained in:
Calascibetta Romain 2024-05-22 11:47:10 +02:00 committed by Hannes Mehnert
parent ad1afe99ee
commit 3dc545681d
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dao.ml
View File

@ -81,6 +81,8 @@ let vifs client domid =
let get_client_ip () =
let* str = Xen_os.Xs.read handle (Fmt.str "%s/%d/ip" path device_id) in
let client_ip = List.hd (String.split_on_char ' ' str) in
(* XXX(dinosaure): it's safe to use [List.hd] here,
[String.split_on_char] can not return an empty list. *)
Lwt.return_some (vif, Ipaddr.V4.of_string_exn client_ip)
in
Lwt.catch get_client_ip @@ function