Dream.redirect: don't write location to body

aantron · Jul 16, 2021 · b0f64df · b0f64df
1 parent ee08358
commit b0f64df
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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