X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FHeaders.hs;h=424145586253bd0544f8070d540cad9c83e502ff;hb=02d702c138d918386135245021d5778676ee6d0e;hp=2378ebcc529295f9495f1f1e5daf5daef46ce907;hpb=9bb89434103e9a22f100d6ecb7e65a5d461e0454;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Headers.hs b/Network/HTTP/Lucu/Headers.hs
index 2378ebc..4241455 100644
--- a/Network/HTTP/Lucu/Headers.hs
+++ b/Network/HTTP/Lucu/Headers.hs
@@ -57,6 +57,10 @@ class HasHeaders a where
             Headers m
               → setHeaders a $ Headers $ M.insert key val m
 
+instance HasHeaders Headers where
+    getHeaders   = id
+    setHeaders _ = id
+
 toHeaders ∷ [(CIAscii, Ascii)] → Headers
 {-# INLINE toHeaders #-}
 toHeaders = flip mkHeaders (∅)
@@ -119,7 +123,7 @@ headersP = do xs ← P.many header
 
       joinValues ∷ [Ascii] → Ascii
       {-# INLINE joinValues #-}
-      joinValues = A.fromAsciiBuilder ∘ joinWith "\x20"
+      joinValues = A.fromAsciiBuilder ∘ joinWith "\x20" ∘ map A.toAsciiBuilder
 
 hPutHeaders ∷ HandleLike h => h → Headers → IO ()
 hPutHeaders !h !(Headers m)