Permalink
Browse files

Simplify example

  • Loading branch information...
1 parent 0265427 commit d4ef0de88bcdf3fde973a1d4318dc67be5359198 @sol sol committed Nov 18, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 examples/RFC2616.hs
View
@@ -36,7 +36,7 @@ data Request = Request {
} deriving (Eq, Ord, Show)
httpVersion :: Parser B.ByteString
-httpVersion = string "HTTP/" *> P.takeWhile (\c -> isDigit_w8 c || c == 46)
+httpVersion = "HTTP/" *> P.takeWhile (\c -> isDigit_w8 c || c == 46)
requestLine :: Parser Request
requestLine = do

0 comments on commit d4ef0de

Please sign in to comment.