@@ -32,10 +32,10 @@ requestLine :: Parser Request
3232requestLine = do
3333 method <- P.takeWhile1 isToken <* skipHSpaces
3434 uri <- P.takeWhile1 (not . isHorizontalSpace) <* skipHSpaces <* string "HTTP/"
35− proto <- P.takeWhile1 isDigitOrDot <* endOfLine
35+ proto <- P.takeWhile1 isHttpVersion <* endOfLine
3636 return $! Request method uri proto
3737 where
38− isDigitOrDot w = (w >= 48 && w <= 57) || w == 46
38+ isHttpVersion w = w == 46 || w == 48 || w == 49
3939
4040data Header = Header {
4141 headerName :: !B.ByteString