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

Break the line before the 'in' for a multi-line 'let ... in'

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

9
dao.ml
View File

@ -81,7 +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
Lwt.return_some (vif, Ipaddr.V4.of_string_exn client_ip) 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
| Ipaddr.Parse_error (msg, client_ip) ->
@ -91,8 +92,10 @@ let vifs client domid =
| exn ->
Log.err (fun f -> f "Error getting IP address of %a: %s"
ClientVif.pp vif (Printexc.to_string exn));
Lwt.return_none in
Lwt_list.filter_map_p ip_of_vif devices in
Lwt.return_none
in
Lwt_list.filter_map_p ip_of_vif devices
in
Xen_os.Xs.immediate client vifs_of_domain
let watch_clients fn =