@@ -36,7 +36,7 @@ data Request = Request {
3636 } deriving (Eq, Ord, Show)
3737
3838httpVersion :: Parser B.ByteString
39−httpVersion = string "HTTP/" *> P.takeWhile (\c -> isDigit_w8 c || c == 46)
39+httpVersion = "HTTP/" *> P.takeWhile (\c -> isDigit_w8 c || c == 46)
4040
4141requestLine :: Parser Request
4242requestLine = do