)
where
+import qualified Data.ByteString.Char8 as C8
import Network.HTTP.Lucu.Parser
+import Prelude hiding (min)
import System.IO
-- |@'HttpVersion' major minor@ represents \"HTTP\/major.minor\".
hPutHttpVersion :: Handle -> HttpVersion -> IO ()
hPutHttpVersion h (HttpVersion maj min)
= h `seq`
- do hPutStr h "HTTP/"
+ do C8.hPut h (C8.pack "HTTP/")
hPutStr h (show maj)
hPutChar h '.'
hPutStr h (show min)
\ No newline at end of file