@@ -37,7 +37,7 @@ static :: FilePath -- ^ Directory to serve
3737static directory preServe = do
3838 -- Obtain the path
3939 uri <- rqURI <$> getRequest
40− let filePath = replaceAll "\\?$" (const "") -- Remove trailing ?
40+ let filePath = replaceAll "\\?.*$" (const "") -- Remove trailing ?
4141 $ replaceAll "#[^#]*$" (const "") -- Remove #section
4242 $ replaceAll "^/" (const "") -- Remove leading /
4343 $ urlDecode $ decode $ SB.unpack uri