From 6bcad2701a49ae422144111276b2815eb35311a4 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Sun, 10 Jan 2010 19:17:18 +0100
Subject: Added custom Template system. Highly experimental.

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

(limited to 'src/Network')

diff --git a/src/Network/Hakyll/SimpleServer.hs b/src/Network/Hakyll/SimpleServer.hs
index 7b058f3..017a764 100644
--- a/src/Network/Hakyll/SimpleServer.hs
+++ b/src/Network/Hakyll/SimpleServer.hs
@@ -48,7 +48,7 @@ instance Show Request where
 readRequest :: Handle -> Server Request
 readRequest handle = do
     requestLine <- liftIO $ hGetLine handle
-    let [method, uri, version] = map trim $ split " " requestLine
+    let [method, uri, version] = map trim $ splitRegex " " requestLine
     return $ Request { requestMethod = B.pack method
                      , requestURI = B.pack uri
                      , requestVersion = B.pack version
-- 
cgit v1.2.3