Skip to content
Snippets Groups Projects
Commit f5f6c9bb authored by François Bobot's avatar François Bobot
Browse files

Remove large integer constant in colibrics

parent b5dde3b9
No related branches found
No related tags found
1 merge request!24Release helpers
Pipeline #46215 passed
......@@ -152,12 +152,10 @@ let parse_time arg =
let size_string f =
let n = int_of_float f in
let aux n div = n / div, n mod div in
let n_tera, n = aux n 1_000_000_000_000 in
let n_giga, n = aux n 1_000_000_000 in
let n_mega, n = aux n 1_000_000 in
let n_kilo, n = aux n 1_000 in
let print_aux s n = if n <> 0 then (string_of_int n) ^ s else "" in
(print_aux "To" n_tera) ^
(print_aux "Go" n_giga) ^
(print_aux "Mo" n_mega) ^
(print_aux "ko" n_kilo) ^
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment