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 (∅)
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)