diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-05-19 11:22:07 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-05-19 11:22:07 +0200 |
| commit | 04bd9417522fbd8cf867cacdcc9cf4ba81039f98 (patch) | |
| tree | e2e34b2449840b626c8264b8917ab0fa1995ddd2 | |
| parent | da3aa16c8bffe896082288902256b4454e9dc415 (diff) | |
| download | hakyll-04bd9417522fbd8cf867cacdcc9cf4ba81039f98.tar.gz | |
Ignore get params in preview server
Closes gh-27
| -rw-r--r-- | src/Hakyll/Web/Preview/Server.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |