( Headers
, HasHeaders(..)
+ , singleton
+
, toHeaders
, fromHeaders
getHeaders = id
setHeaders _ = id
+singleton ∷ CIAscii → Ascii → Headers
+{-# INLINE singleton #-}
+singleton key val
+ = Headers $ M.singleton key val
+
toHeaders ∷ [(CIAscii, Ascii)] → Headers
{-# INLINE toHeaders #-}
toHeaders = flip mkHeaders (∅)