Server allows URL's containing '?'.
commitb1d4f48d2422b3604f8f8851e2930f800f85dc2c
authorJasper Van der Jeugt <jaspervdj@gmail.com>
dateTue 25 May 2010, 19:13 (16 years ago)
parenteac0473
src/Network/Hakyll/SimpleServer.hs+2−1
@@ -102,7 +102,8 @@ createGetResponse :: Request -> Server Response
102102createGetResponse request = do
103103 -- Construct the complete fileName of the requested resource.
104104 config <- ask
105− let uri = requestURI request
105+ let -- Drop everything after a '?'.
106+ uri = takeWhile ((/=) '?') $ requestURI request
106107 log' = writeChan (logChannel config)
107108 isDirectory <- liftIO $ doesDirectoryExist $ documentRoot config ++ uri
108109 let fileName =