From 353a9f491c2f24da7568d28344c2c3e1d825fe6c Mon Sep 17 00:00:00 2001 From: swrup Date: Sat, 14 Mar 2026 20:48:42 +0100 Subject: [PATCH] --- src/secmod_eddsa.ml | 3 ++- src/util.ml | 4 ++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/src/secmod_eddsa.ml b/src/secmod_eddsa.ml index f542958b..2528e329 100644 --- a/src/secmod_eddsa.ml +++ b/src/secmod_eddsa.ml @@ -84,10 +84,11 @@ let delete_file fs fpath = () let get_key_dir_contents fs dir = + Log.debug (fun m -> m "get_key_dir_contents `%s`" dir); let* dir = Fpath.of_string dir |> unwrap_msg in let dir = Fpath.to_string dir in let* () = Fat.mkdir fs dir |> unwrap_msg in - Log.info (fun m -> m "created directory `%s`" dir); + Log.debug (fun m -> m "created directory `%s`" dir); let+ l = Fat.ls fs dir |> unwrap_msg in (* List.map Fpath.normalize l *) let l = List.map (fun entry -> entry.Fat.name) l in diff --git a/src/util.ml b/src/util.ml index 99dfe8f0..c173cd9b 100644 --- a/src/util.ml +++ b/src/util.ml @@ -54,8 +54,8 @@ module Log_reporter = struct () let setup () = - (*set_level_secmods (Some Logs.Debug);*) - let level = Some Logs.Info in + set_level_secmods (Some Logs.Debug); + let level = Some Logs.Debug in Logs.set_level ~all:false level; Logs.Src.set_level Logs.default level; Logs.set_reporter reporter;