From b0f64df6755ba7a45d4b6e03d63054d637ea26d3 Mon Sep 17 00:00:00 2001
From: Anton Bachin <antonbachin@yahoo.com>
Date: Fri, 16 Jul 2021 09:26:08 +0300
Subject: [PATCH] Dream.redirect: don't write location to body

---
 src/pure/inmost.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/pure/inmost.ml b/src/pure/inmost.ml
index 1c83ff71..f9b1b08e 100644
--- a/src/pure/inmost.ml
+++ b/src/pure/inmost.ml
@@ -477,7 +477,7 @@ let redirect ?status ?code ?headers _request location =
     | _ -> status
   in
   let status = (status :> status option) in
-  response ?status ?code ?headers location
+  response ?status ?code ?headers ""
   |> with_header "Location" location
   |> Lwt.return