From 235797034cf169d33505e23caa20aabd529a0dca Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 9 Jul 2009 14:59:05 +0000
Subject: [PATCH] web: reset link did not work in all browsers

---
 Commands/Web.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Commands/Web.hs b/Commands/Web.hs
index 75779e1b0..55e773177 100644
--- a/Commands/Web.hs
+++ b/Commands/Web.hs
@@ -87,7 +87,7 @@ searchform r a p' =
       -- another way to get them
       -- a = fromMaybe "" $ queryValue "a" r
       -- p = fromMaybe "" $ queryValue "p" r
-      u = dropWhile (=='/') $ rqUri r
+      u = rqUri r
       s = "20"
       resetlink | null a && null p' = noHtml
                 | otherwise = spaceHtml +++ anchor ! [href u] << stringToHtml "reset"