Git-Mirrors/qubes-mirage-firewall
1
0
Fork 0
mirror of https://github.com/mirage/qubes-mirage-firewall.git synced 2024-10-01 01:05:39 -04:00
Code Issues Packages Projects Releases Wiki Activity

Reduce logging verbosity

Browse Source
This commit is contained in:
Thomas Leonard 2016-02-10 08:34:17 +00:00
parent 62aec06be9
commit 606afb53ea
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
firewall.ml
View File

@ -101,7 +101,7 @@ let rec add_nat_rule_and_transmit ?(retries=100) t frame fn logf =
Log.warn (fun f -> f "Failed to add NAT rule: Unparseable"); Log.warn (fun f -> f "Failed to add NAT rule: Unparseable");
return () return ()
| Nat_rewrite.Ok _ -> | Nat_rewrite.Ok _ ->
Log.info (logf xl_port); Log.debug (logf xl_port);
match translate t frame with match translate t frame with
| Some frame -> forward_ipv4 t frame | Some frame -> forward_ipv4 t frame
| None -> | None ->