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

cleanup

Browse source
This commit is contained in:
Simon Cruanes 2024-04-03 21:36:14 -04:00
parent d8ff243e8d
commit 84adbb13b2
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 0 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/core/server.ml
View file

@ -6,10 +6,6 @@ module Middleware = struct
type handler = IO.Input.t Request.t -> resp:(Response.t -> unit) -> unit type handler = IO.Input.t Request.t -> resp:(Response.t -> unit) -> unit
type t = handler -> handler type t = handler -> handler
(** Apply a list of middlewares to [h] *)
let apply_l (l : t list) (h : handler) : handler =
List.fold_right (fun m h -> m h) l h
let[@inline] nil : t = fun h -> h let[@inline] nil : t = fun h -> h
end end

9
src/unix/dir.ml
View file

@ -203,15 +203,6 @@ let html_list_dir (module VFS : VFS) ~prefix ~parent d : Html.elt =
in in
html [] [ head; body ] html [] [ head; body ]
let finally_ ~h x f =
try
let y = f x in
h x;
y
with e ->
h x;
raise e
(* @param on_fs: if true, we assume the file exists on the FS *) (* @param on_fs: if true, we assume the file exists on the FS *)
let add_vfs_ ~on_fs ~top ~config ~vfs:((module VFS : VFS) as vfs) ~prefix server let add_vfs_ ~on_fs ~top ~config ~vfs:((module VFS : VFS) as vfs) ~prefix server
: unit = : unit =