diff options
| -rw-r--r-- | lib/lockfile.ml | 4 | ||||
| -rw-r--r-- | lib/manifest.ml | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lib/lockfile.ml b/lib/lockfile.ml index f3319a2..4841574 100644 --- a/lib/lockfile.ml +++ b/lib/lockfile.ml @@ -467,12 +467,12 @@ let write ?(create = `Or_truncate 0o644) () : (unit, error) result = in let working_dir = Working_directory.get () in let filepath = Eio.Path.(working_dir / filename) in - Logs.app (fun m -> m "Writing lockfile @@ %s …" filename); + Logs.info (fun m -> m "Writing lockfile @@ %s …" filename); let* result = Eio.Path.with_open_out ~create filepath @@ fun flow -> (* TODO: Util.Jsont.to_flow_piset jsont lock flow *) Util.Jsont.to_flow jsont lock flow |> Result.map_error (fun err -> `Serializing err) in - Logs.app (fun m -> m "Lockfile written."); + Logs.info (fun m -> m "Lockfile written."); Ok result diff --git a/lib/manifest.ml b/lib/manifest.ml index a669254..6c6fa00 100644 --- a/lib/manifest.ml +++ b/lib/manifest.ml @@ -746,7 +746,7 @@ let write () : (unit, error) result = | Some m -> Ok m | None -> Error `Not_set_up in - Logs.app (fun m -> m "Writing manifest @@ %s …" filename); + Logs.info (fun m -> m "Writing manifest @@ %s …" filename); let result = Eio.Path.with_open_out ~create: (`Exclusive 0o644) filepath @@ fun flow -> let banner = [ @@ -759,5 +759,5 @@ let write () : (unit, error) result = KDL.to_flow flow mnfst; Eio.Flow.write flow ([Cstruct.of_string "\n"]) in - Logs.app (fun m -> m "Manifest written."); + Logs.info (fun m -> m "Manifest written."); Ok result |