diff --git a/src/core/gen/mkshims.ml b/src/core/gen/mkshims.ml
index a49f1ab7..954a4e40 100644
--- a/src/core/gen/mkshims.ml
+++ b/src/core/gen/mkshims.ml
@@ -26,11 +26,6 @@ let atomic_before_412 =
 
 let atomic_after_412 = {|include Atomic|}
 
-let write_file file s =
-  let oc = open_out file in
-  output_string oc s;
-  close_out oc
-
 let () =
   let version = Scanf.sscanf Sys.ocaml_version "%d.%d.%s" (fun x y _ -> x, y) in
   print_endline
diff --git a/src/core/server.ml b/src/core/server.ml
index 46f2354d..6c293a14 100644
--- a/src/core/server.ml
+++ b/src/core/server.ml
@@ -15,7 +15,6 @@ module Head_middleware = struct
   type t = { handle: 'a. 'a Request.t -> 'a Request.t }
 
   let trivial = { handle = Fun.id }
-  let[@inline] apply (self : t) req = self.handle req
   let[@inline] apply' req (self : t) = self.handle req
 
   let to_middleware (self : t) : Middleware.t =
diff --git a/src/html/gen/gentags.ml b/src/html/gen/gentags.ml
index 2736b796..cd920477 100644
--- a/src/html/gen/gentags.ml
+++ b/src/html/gen/gentags.ml
@@ -1,7 +1,6 @@
 (* adapted from https://github.com/sindresorhus/html-tags (MIT licensed) *)
 
 let pf = Printf.printf
-let spf = Printf.sprintf
 
 let void =
   [