use redirect-to

2015-05-14 21:32:36 +00:00 · 2015-05-14 21:32:36 +00:00 · 8262340776
commit 8262340776
parent 638be53745
1 changed files with 1 additions and 5 deletions
--- 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 ()