Commit 005c8b57 authored by Guillaume Melquiond's avatar Guillaume Melquiond

Tentatively fix compilation with OCaml 3.11.

parent ebe2031d
......@@ -188,7 +188,7 @@ module Stats = struct
Sys.signal Sys.sigint (Sys.Signal_handle (fun _ -> exit 2))
let register ~print ~name ~init =
let s = {name; printer = print; value = init} in
let s = {name = name; printer = print; value = init} in
max_name_size := max !max_name_size (String.length name);
registered_stats := (fun fmt -> print_stat fmt s)::!registered_stats;
s
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment