convertSuccess = convertSuccessVia ((⊥) ∷ AsciiBuilder)
instance ConvertSuccess Headers AsciiBuilder where
- {-# INLINE convertSuccess #-}
+ {-# INLINEABLE convertSuccess #-}
convertSuccess (Headers m)
= mconcat (header <$> fromFoldable m) ⊕ cs ("\x0D\x0A" ∷ Ascii)
where
header ∷ (CIAscii, Ascii) → AsciiBuilder
+ {-# INLINE header #-}
header (name, value)
= cs name ⊕
cs (": " ∷ Ascii) ⊕