diff options
Diffstat (limited to 'bin/server.ml')
| -rw-r--r-- | bin/server.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bin/server.ml b/bin/server.ml index 80f392b..5a59e2e 100644 --- a/bin/server.ml +++ b/bin/server.ml @@ -154,11 +154,11 @@ let print_with_time str = let tm = Unix.localtime now in let orange = "\027[38;5;208m" in let reset = "\027[0m" in - let formatted_time = + let formatted_time = Printf.sprintf "%04d-%02d-%02d %02d:%02d:%02d" (tm.Unix.tm_year + 1900) (tm.Unix.tm_mon + 1) tm.Unix.tm_mday tm.Unix.tm_hour tm.Unix.tm_min tm.Unix.tm_sec - in + in print_endline @@ Printf.sprintf "%s[%s]%s %s" orange formatted_time reset str (* TODO: single-threaded accept loop — one slow or hung client blocks all |