module Network.HPACK (
HPACKEncoding
, HPACKDecoding
, encodeHeader
, decodeHeader
, HPACKEncodingBuilder
, encodeHeaderBuilder
, DynamicTable
, defaultDynamicTableSize
, newDynamicTableForEncoding
, newDynamicTableForDecoding
, setLimitForEncoding
, CompressionAlgo(..)
, EncodeStrategy(..)
, defaultEncodeStrategy
, DecodeError(..)
, HeaderList
, Header
, HeaderName
, HeaderValue
, Size
, Index
) where
#if __GLASGOW_HASKELL__ < 709
import Control.Applicative ((<$>))
#endif
import Control.Arrow (second)
import Control.Exception (throwIO)
import Data.ByteString (ByteString)
import Data.ByteString.Builder (Builder)
import Network.HPACK.HeaderBlock (toHeaderBlock, fromHeaderBlock, toByteString, fromByteString, toBuilder)
import Network.HPACK.Table (DynamicTable, Size, newDynamicTableForEncoding, newDynamicTableForDecoding, setLimitForEncoding)
import Network.HPACK.Types
defaultDynamicTableSize :: Int
defaultDynamicTableSize = 4096
type HPACKEncoding = DynamicTable -> HeaderList -> IO (DynamicTable, ByteString)
type HPACKEncodingBuilder = DynamicTable -> HeaderList -> IO (DynamicTable, Builder)
type HPACKDecoding = DynamicTable -> ByteString -> IO (DynamicTable, HeaderList)
encodeHeader :: EncodeStrategy -> HPACKEncoding
encodeHeader stgy ctx hs = second toBS <$> toHeaderBlock algo ctx hs
where
algo = compressionAlgo stgy
toBS = toByteString (useHuffman stgy)
encodeHeaderBuilder :: EncodeStrategy -> HPACKEncodingBuilder
encodeHeaderBuilder stgy ctx hs = second toBB <$> toHeaderBlock algo ctx hs
where
algo = compressionAlgo stgy
toBB = toBuilder (useHuffman stgy)
decodeHeader :: HPACKDecoding
decodeHeader ctx bs = either throwIO (fromHeaderBlock ctx) ehb
where
ehb = fromByteString bs