Implemented fallback handler.

[Lucu.git] / Network / HTTP / Lucu / Headers.hs

diff --git a/Network/HTTP/Lucu/Headers.hs b/Network/HTTP/Lucu/Headers.hs
index 28723bc206512f92adb178126629a89c9a15a926..4ad60432b704bf16ad06853ac083c633982473d6 100644 (file)
--- 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")