import qualified Data.Ascii as A
import Data.Attoparsec.Char8 as P
import Data.List (intersperse)
import qualified Data.Ascii as A
import Data.Attoparsec.Char8 as P
import Data.List (intersperse)
= Headers $ insertManySorted f m
instance Foldable Headers (CIAscii, Ascii) where
= Headers $ insertManySorted f m
instance Foldable Headers (CIAscii, Ascii) where