Commits

solirc committed 13b50aa

Simplify example

  • Participants
  • Parent commits 062e800

Comments (0)

Files changed (1)

examples/RFC2616.hs

     } 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