From 917989e8dcac16aaccb50800ed1dedc4c16554d1 Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Mon, 28 Oct 2024 16:35:44 +0100
Subject: [PATCH] rename has_header to header

---
 middleware.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/middleware.ml b/middleware.ml
index 1bc4df0d..e7268c0f 100644
--- a/middleware.ml
+++ b/middleware.ml
@@ -1,11 +1,11 @@
 type handler = Httpaf.Reqd.t -> unit Lwt.t
 type middleware = handler -> handler
 
-let has_header ~header_name reqd =
+let header header_name reqd =
   let headers = (Httpaf.Reqd.request reqd).headers in
   Httpaf.Headers.get headers header_name
 
-let user_agent reqd = has_header ~header_name:"User-Agent" reqd
+let user_agent reqd = header "User-Agent" reqd
 
 let get_csrf now reqd =
   User_model.(
@@ -14,7 +14,7 @@ let get_csrf now reqd =
       ~created_at:now ~expires_in:3600)
 
 let has_cookie cookie_name (reqd : Httpaf.Reqd.t) =
-  match has_header ~header_name:"Cookie" reqd with
+  match header "Cookie" reqd with
   | Some cookies ->
       let cookie_list = String.split_on_char ';' cookies in
       List.find_opt