+-- #prune
+
+-- |Manipulation of HTTP version string.
module Network.HTTP.Lucu.HttpVersion
( HttpVersion(..)
- , httpVersionP -- Parser HttpVersion
- , hPutHttpVersion -- Handle -> HttpVersion -> IO ()
+ , httpVersionP
+ , hPutHttpVersion
)
where
-import qualified Data.ByteString.Lazy.Char8 as B
-import Data.ByteString.Lazy.Char8 (ByteString)
import Network.HTTP.Lucu.Parser
import System.IO
-data HttpVersion = HttpVersion Int Int
+-- |@'HttpVersion' major minor@ represents \"HTTP\/major.minor\".
+data HttpVersion = HttpVersion !Int !Int
deriving (Eq)
instance Show HttpVersion where
hPutHttpVersion :: Handle -> HttpVersion -> IO ()
hPutHttpVersion h (HttpVersion maj min)
- = do hPutStr h "HTTP/"
+ = h `seq`
+ do hPutStr h "HTTP/"
hPutStr h (show maj)
hPutChar h '.'
hPutStr h (show min)
\ No newline at end of file