diff options
| -rw-r--r-- | src/Network/Hakyll/SimpleServer.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Network/Hakyll/SimpleServer.hs b/src/Network/Hakyll/SimpleServer.hs index 4b4e7ee..f17c490 100644 --- a/src/Network/Hakyll/SimpleServer.hs +++ b/src/Network/Hakyll/SimpleServer.hs @@ -102,7 +102,8 @@ createGetResponse :: Request -> Server Response createGetResponse request = do -- Construct the complete fileName of the requested resource. config <- ask - let uri = requestURI request + let -- Drop everything after a '?'. + uri = takeWhile ((/=) '?') $ requestURI request log' = writeChan (logChannel config) isDirectory <- liftIO $ doesDirectoryExist $ documentRoot config ++ uri let fileName = |