From e1ddb96e7c703a9fc31436bf9363122a22766077 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Mon, 20 Dec 2021 09:52:23 -0500 Subject: [PATCH] Update src/Tiny_httpd_dir.ml --- src/Tiny_httpd_dir.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Tiny_httpd_dir.ml b/src/Tiny_httpd_dir.ml index c26c5a95..33da8535 100644 --- a/src/Tiny_httpd_dir.ml +++ b/src/Tiny_httpd_dir.ml @@ -34,7 +34,7 @@ let contains_dot_dot s = let human_size (x:int) : string = if x >= 1_000_000_000 then Printf.sprintf "%d.%dG" (x / 1_000_000_000) ((x/1_000_000) mod 1_000_000) else if x >= 1_000_000 then Printf.sprintf "%d.%dM" (x / 1_000_000) ((x/1000) mod 1_000) - else if x >= 1_000 then Printf.sprintf "%d.%dk" (x/1000) ((x/100) mod 10) + else if x >= 1_000 then Printf.sprintf "%d.%dk" (x/1000) ((x/100) mod 100) else Printf.sprintf "%db" x let header_html = "Content-Type", "text/html"