From 606afb53ea20bc90676c98eaa4e1f2076da3c481 Mon Sep 17 00:00:00 2001
From: Thomas Leonard <thomas.leonard@unikernel.com>
Date: Wed, 10 Feb 2016 08:34:17 +0000
Subject: [PATCH] Reduce logging verbosity

---
 firewall.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/firewall.ml b/firewall.ml
index 2329611..6d5b7d1 100644
--- a/firewall.ml
+++ b/firewall.ml
@@ -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");
       return ()
   | Nat_rewrite.Ok _ ->
-      Log.info (logf xl_port);
+      Log.debug (logf xl_port);
       match translate t frame with
       | Some frame -> forward_ipv4 t frame
       | None ->