adding doctests.

This commit is contained in:
Kazu Yamamoto 2013-11-01 14:47:12 +09:00
parent 8583c33ce5
commit c8da01af35

View File

@ -89,6 +89,8 @@ parsePath path
-- ("Accept-Ranges","bytes")
-- >>> parseHeader "Host: example.com:8080"
-- ("Host","example.com:8080")
-- >>> parseHeader "NoSemiColon"
-- ("NoSemiColon","")
parseHeader :: ByteString -> H.Header
parseHeader s =