From 84adbb13b2381859b1857315b5b1b195695ecb4a Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Wed, 3 Apr 2024 21:36:14 -0400
Subject: [PATCH] cleanup

---
 src/core/server.ml | 4 ----
 src/unix/dir.ml    | 9 ---------
 2 files changed, 13 deletions(-)

diff --git a/src/core/server.ml b/src/core/server.ml
index 0bef5d26..221ebefb 100644
--- a/src/core/server.ml
+++ b/src/core/server.ml
@@ -6,10 +6,6 @@ module Middleware = struct
   type handler = IO.Input.t Request.t -> resp:(Response.t -> unit) -> unit
   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
 end
 
diff --git a/src/unix/dir.ml b/src/unix/dir.ml
index 0035849c..6303b5a9 100644
--- a/src/unix/dir.ml
+++ b/src/unix/dir.ml
@@ -203,15 +203,6 @@ let html_list_dir (module VFS : VFS) ~prefix ~parent d : Html.elt =
   in
   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 *)
 let add_vfs_ ~on_fs ~top ~config ~vfs:((module VFS : VFS) as vfs) ~prefix server
     : unit =