+-- #prune
+
+-- |Manipulation of HTTP version string.
module Network.HTTP.Lucu.HttpVersion
( HttpVersion(..)
- , httpVersionP -- Parser HttpVersion
- , hPutHttpVersion -- Handle -> HttpVersion -> IO ()
+ , httpVersionP
+ , hPutHttpVersion
)
where
import Network.HTTP.Lucu.Parser
import System.IO
+-- |@'HttpVersion' major minor@ represents \"HTTP\/major.minor\".
data HttpVersion = HttpVersion Int Int
deriving (Eq)