module Network.HPACK.HeaderBlock.String (
encode
, parseString
) where
import Data.ByteString (ByteString)
import qualified Data.ByteString as BS
import qualified Network.HPACK.Huffman as Huffman
import Network.HPACK.Types
encode :: Bool -> HeaderStuff -> ByteString
encode True h = Huffman.encode h
encode _ h = h
parseString :: Bool -> Int -> ByteString
-> Either DecodeError (HeaderStuff, ByteString)
parseString False len bs = Right (es, bs')
where
(es, bs') = BS.splitAt len bs
parseString True len bs = Huffman.decode es >>= \x -> return (x,bs')
where
(es, bs') = BS.splitAt len bs