CA-34200: audit-log should have info level

Signed-off-by: Marcus Granado <marcus.granado@eu.citrix.com>

diff --git a/log/logs.ml b/log/logs.ml
index 8adac3d71181546ddb0ea8de24588f3cf5f14c13..917938c330fdd40dc0c01b561686960a185c7268 100644 (file)
--- a/log/logs.ml
+++ b/log/logs.ml
@@ -208,4 +208,4 @@ let warn t ?extra (fmt: ('a , unit, string, unit) format4) =
 let error t ?extra (fmt: ('a , unit, string, unit) format4) =
        log t Log.Error ?extra fmt
 let audit t ?raw ?extra (fmt: ('a , unit, string, string) format4) =
-  log_and_return t Log.Debug ?raw ?extra fmt
+  log_and_return t Log.Info ?raw ?extra fmt