From 04bd9417522fbd8cf867cacdcc9cf4ba81039f98 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Thu, 19 May 2011 11:22:07 +0200 Subject: Ignore get params in preview server Closes gh-27 --- src/Hakyll/Web/Preview/Server.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Hakyll') diff --git a/src/Hakyll/Web/Preview/Server.hs b/src/Hakyll/Web/Preview/Server.hs index 94e890e..4269509 100644 --- a/src/Hakyll/Web/Preview/Server.hs +++ b/src/Hakyll/Web/Preview/Server.hs @@ -37,7 +37,7 @@ static :: FilePath -- ^ Directory to serve static directory preServe = do -- Obtain the path uri <- rqURI <$> getRequest - let filePath = replaceAll "\\?$" (const "") -- Remove trailing ? + let filePath = replaceAll "\\?.*$" (const "") -- Remove trailing ? $ replaceAll "#[^#]*$" (const "") -- Remove #section $ replaceAll "^/" (const "") -- Remove leading / $ urlDecode $ decode $ SB.unpack uri -- cgit v1.2.3