From 6eaf9ae854cdadf4e322cf1bb63710da9b9af4b1 Mon Sep 17 00:00:00 2001
From: David Sancho Moreno <david.sancho@ahrefs.com>
Date: Thu, 3 Sep 2026 09:29:27 +0000
Subject: [PATCH] httpev: add permanent redirect status

---
 httpev_common.ml | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/httpev_common.ml b/httpev_common.ml
index 90ebdb9..b07705f 100644
--- a/httpev_common.ml
+++ b/httpev_common.ml
@@ -36,6 +36,7 @@ type status_code =
   | `No_content
   | `Found
   | `Moved
+  | `Permanent_redirect
   | `Bad_request
   | `Unauthorized
   | `Payment_required
@@ -125,6 +126,7 @@ let status_code : reply_status -> int = function
 
   | `Moved -> 301
   | `Found -> 302
+  | `Permanent_redirect -> 308
 
   | `Bad_request -> 400
   | `Unauthorized -> 401
@@ -159,6 +161,7 @@ let show_status_code : status_code -> string = function
 
   | `Moved -> "301 Moved Permanently"
   | `Found -> "302 Found"
+  | `Permanent_redirect -> "308 Permanent Redirect"
 
   | `Bad_request -> "400 Bad Request"
   | `Unauthorized -> "401 Unauthorized"