simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 03:05:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix warnings

Browse source
This commit is contained in:
Simon Cruanes 2025-03-19 13:39:15 -04:00
parent e177153f10
commit 75d90559bd
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 6 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/bin/http_of_dir.ml
View file

@ -1,7 +1,5 @@
module S = Tiny_httpd
module U = Tiny_httpd.Util
module D = Tiny_httpd.Dir
module Pf = Printf
module Log = Tiny_httpd.Log
let serve ~config ~timeout (dir : string) addr port j : _ result =
@ -9,9 +7,9 @@ let serve ~config ~timeout (dir : string) addr port j : _ result =
let after_init () =
Printf.printf "serve directory %s on http://%(%s%):%d\n%!" dir
(if S.is_ipv6 server then
"[%s]"
else
"%s")
"[%s]"
else
"%s")
addr (S.port server)
in
@ -63,9 +61,9 @@ let main () =
(fun b ->
config.dir_behavior <-
(if b then
Index_or_lists
else
Lists)),
Index_or_lists
else
Lists)),
" <bool> automatically redirect to index.html if present" );
( "--delete",
Unit (fun () -> config.delete <- true),