X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FHeaders.hs;h=4ad60432b704bf16ad06853ac083c633982473d6;hb=50e8fe7af585a8d33d93b3721be8f8f01905b891;hp=28723bc206512f92adb178126629a89c9a15a926;hpb=e53a2f3202f763e844de725712f1bf26b82cd41f;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Headers.hs b/Network/HTTP/Lucu/Headers.hs
index 28723bc..4ad6043 100644
--- a/Network/HTTP/Lucu/Headers.hs
+++ b/Network/HTTP/Lucu/Headers.hs
@@ -207,12 +207,12 @@ headersP = do xs <- many header
 hPutHeaders :: Handle -> Headers -> IO ()
 hPutHeaders h hds
     = h `seq` hds `seq`
-      mapM_ putH (M.toList hds) >> hPutStr h "\r\n"
+      mapM_ putH (M.toList hds) >> C8.hPut h (C8.pack "\r\n")
     where
       putH :: (NCBS, ByteString) -> IO ()
       putH (name, value)
           = name `seq` value `seq`
-            do C8.hPutStr h (fromNCBS name)
-               C8.hPutStr h (C8.pack ": ")
-               C8.hPutStr h value
-               C8.hPutStr h (C8.pack "\r\n")
+            do C8.hPut h (fromNCBS name)
+               C8.hPut h (C8.pack ": ")
+               C8.hPut h value
+               C8.hPut h (C8.pack "\r\n")