diff --git a/benchpress-server.opam b/benchpress-server.opam index 21f02a2..aef84f2 100644 --- a/benchpress-server.opam +++ b/benchpress-server.opam @@ -21,7 +21,7 @@ depends: [ "gnuplot" { >= "0.6" & < "0.8" } "sqlite3" "sqlite3_utils" { >= "0.4" & < "0.5" } - "tiny_httpd" { >= "0.16" & < "1.0" } + "tiny_httpd" { >= "0.17" & < "1.0" } "printbox" { >= "0.6" } "printbox-text" { >= "0.6" } "ocaml" {>= "4.12" } diff --git a/src/server/benchpress_server.ml b/src/server/benchpress_server.ml index e0c53e9..0a9dba9 100644 --- a/src/server/benchpress_server.ml +++ b/src/server/benchpress_server.ml @@ -2,7 +2,7 @@ open Common module T = Test module H = Tiny_httpd -module U = Tiny_httpd_util +module U = Tiny_httpd.Util module PB = PrintBox module Log = (val Logs.src_log (Logs.Src.create "benchpress-serve")) @@ -1746,9 +1746,9 @@ let handle_file self : unit = Log.debug (fun k -> k "get-file: `%s`" file); let bytes = if file = "prelude" then - H.Byte_stream.of_string Builtin_config.config (* magic file! *) + H.IO.Input.of_string Builtin_config.config (* magic file! *) else ( - try H.Byte_stream.of_chan @@ open_in file + try H.IO.Input.of_in_channel @@ open_in file with e -> H.Response.fail_raise ~code:404 "cannot open file %S:\n\