Opam_graph: Switched from 'Int.max' to 'max' to support older ocaml versions

This commit is contained in:
rand00 2022-03-22 19:05:48 +01:00
parent 9b4af7cfd4
commit 5f1c15e82f

View file

@ -775,7 +775,7 @@ svg {
let max_count = let max_count =
(*> todo; would be more correct to use the count of nodes in dep-graph*) (*> todo; would be more correct to use the count of nodes in dep-graph*)
SMap.fold SMap.fold
(fun _pkg count max_count -> Int.max max_count count) (fun _pkg count max_count -> max max_count count)
sharing_stats 0 sharing_stats 0
|> float |> float
|> ( *. ) 0.2 |> ( *. ) 0.2