swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2026-03-14 20:48:42 +01:00
parent 67e09d38b6
commit 353a9f491c
2 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/secmod_eddsa.ml
View file

@ -84,10 +84,11 @@ let delete_file fs fpath =
() ()
let get_key_dir_contents fs dir = 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.of_string dir |> unwrap_msg in
let dir = Fpath.to_string dir in let dir = Fpath.to_string dir in
let* () = Fat.mkdir fs dir |> unwrap_msg 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 let+ l = Fat.ls fs dir |> unwrap_msg in
(* List.map Fpath.normalize l *) (* List.map Fpath.normalize l *)
let l = List.map (fun entry -> entry.Fat.name) l in let l = List.map (fun entry -> entry.Fat.name) l in

4
src/util.ml
View file

@ -54,8 +54,8 @@ module Log_reporter = struct
() ()
let setup () = let setup () =
(*set_level_secmods (Some Logs.Debug);*) set_level_secmods (Some Logs.Debug);
let level = Some Logs.Info in let level = Some Logs.Debug in
Logs.set_level ~all:false level; Logs.set_level ~all:false level;
Logs.Src.set_level Logs.default level; Logs.Src.set_level Logs.default level;
Logs.set_reporter reporter; Logs.set_reporter reporter;