diff options
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 |