import Prelude.Unicode
-- |This is the definition of HTTP request methods, which shouldn't
--- require any description.
+-- require any descriptions.
data Method = OPTIONS
| GET
| HEAD
| ExtensionMethod !Ascii
deriving (Eq, Show)
--- |This is the definition of HTTP reqest.
+-- |This is the definition of an HTTP reqest.
data Request
= Request {
reqMethod ∷ !Method
| m ≡ PUT = True
| otherwise = False
+-- |'Parser' for a 'Request'.
requestP ∷ Parser Request
requestP = do skipMany crlf
(method, uri, version) ← requestLineP