diff options
Diffstat (limited to '2025/ocaml/lib/presentation')
| -rw-r--r-- | 2025/ocaml/lib/presentation/cli.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/2025/ocaml/lib/presentation/cli.ml b/2025/ocaml/lib/presentation/cli.ml index 371f199..b4c990c 100644 --- a/2025/ocaml/lib/presentation/cli.ml +++ b/2025/ocaml/lib/presentation/cli.ml @@ -2,8 +2,11 @@ let run_solver name solver filepath = let content = Infrastructure.File.read filepath in - let answer = solver content () in - Logs.app (fun m -> m "[%s] ANSWER=%d" name answer) + match solver content () with + | Error msg -> + Logs.app (fun m -> m "[%s] Err=%s" name msg) + | Ok answer -> + Logs.app (fun m -> m "[%s] ANSWER=%d" name answer) let run_day _ = function | 1 -> |