module Network.HPACK.Context.HeaderSet where
import qualified Data.ByteString.Char8 as BS
import Network.HPACK.Table
import Network.HPACK.Types
type HeaderSet = [Header]
emptyHeaderSet :: HeaderSet
emptyHeaderSet = []
printHeaderSet :: HeaderSet -> IO ()
printHeaderSet hs = mapM_ printHeader hs
where
printHeader (k,v) = do
BS.putStr $ fromHeaderName k
putStr ": "
BS.putStr v
putStr "\n"
meregeHeaderSet :: HeaderSet -> HeaderSet -> HeaderSet
meregeHeaderSet hdrset notEmitted = reverse $ notEmitted ++ hdrset
insertHeader :: Header -> HeaderSet -> HeaderSet
insertHeader = (:)