diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-10 19:17:18 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-10 19:17:18 +0100 |
| commit | 6bcad2701a49ae422144111276b2815eb35311a4 (patch) | |
| tree | e3f3d0b7f2a1f39fbe5c7d836083ad52ac89a365 /src/Network | |
| parent | 6a2e6998b125024e9260d26819c262e0e7d22c8d (diff) | |
| download | hakyll-6bcad2701a49ae422144111276b2815eb35311a4.tar.gz | |
Added custom Template system. Highly experimental.
Diffstat (limited to 'src/Network')
| -rw-r--r-- | src/Network/Hakyll/SimpleServer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |