joinValues = A.fromAsciiBuilder
∘ mconcat
∘ intersperse (A.toAsciiBuilder "\x20")
- ∘ map A.toAsciiBuilder
+ ∘ (A.toAsciiBuilder <$>)
printHeaders ∷ Headers → AsciiBuilder
printHeaders (Headers m)
- = mconcat (map printHeader (fromFoldable m)) ⊕
+ = mconcat (printHeader <$> fromFoldable m) ⊕
A.toAsciiBuilder "\x0D\x0A"
where
printHeader ∷ (CIAscii, Ascii) → AsciiBuilder