From b1d4f48d2422b3604f8f8851e2930f800f85dc2c Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Tue, 25 May 2010 19:13:10 +0200
Subject: Server allows URL's containing '?'.

---
 src/Network/Hakyll/SimpleServer.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Network')

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 =
-- 
cgit v1.2.3