From 82623407761776641cc429afd0742b46584167a5 Mon Sep 17 00:00:00 2001
From: Stephen Chang <stchang216@gmail.com>
Date: Thu, 14 May 2015 21:32:36 +0000
Subject: [PATCH] use redirect-to

---
 pasterack.rkt | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/pasterack.rkt b/pasterack.rkt
index c7c1c32..36b807d 100644
--- a/pasterack.rkt
+++ b/pasterack.rkt
@@ -489,11 +489,7 @@
                      paste-url)))
     (fprintf log-port "~a\t~a\t~a\t~a\n"
              tm-str paste-num paste-name (request-client-ip request))
-    (response/xexpr
-     `(html ()
-        (head ()
-          (script () ,(++ "location.href=\"" paste-url "\"")))
-        (body ())))]
+    (redirect-to paste-url permanently)]
    [else
     (response/xexpr
      `(html ()