From: Michael Raitza <spacefrogg-git@spacefrogg.net>
Date: Tue, 16 Jan 2024 17:16:15 +0000 (+0100)
Subject: http.server.redirection: Refactor <custom-redirect>
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=087b7af79ec7f4a62a1a357b7c3c02ba9e64c1ea

http.server.redirection: Refactor <custom-redirect>

Avoid duplication and make use of canned HTTP responses.
---

diff --git a/basis/http/server/redirection/redirection.factor b/basis/http/server/redirection/redirection.factor
index 76885ff7a4..4a166afd34 100644
--- a/basis/http/server/redirection/redirection.factor
+++ b/basis/http/server/redirection/redirection.factor
@@ -14,15 +14,14 @@ M: url relative-to-request
         f >>query
     swap derive-url ensure-port ;
 
-: <custom-redirect> ( url code message -- response )
-    <trivial-response>
-        swap dup url? [ relative-to-request ] when
-        "location" set-header ;
+: <custom-redirect> ( url response -- response' )
+    swap dup url? [ relative-to-request ] when
+    "location" set-header ;
 
 \ <custom-redirect> DEBUG add-input-logging
 
 : <permanent-redirect> ( url -- response )
-    301 "Moved Permanently" <custom-redirect> ;
+    <301> <custom-redirect> ;
 
 : <temporary-redirect> ( url -- response )
-    307 "Temporary Redirect" <custom-redirect> ;
+    <307> <custom-redirect> ;