http2-0.1.2: test-hpack/hpack-debug.hs

module Main where

import Data.Aeson (eitherDecode)
import qualified Data.ByteString.Lazy as BL

import Types
import HPACK

main :: IO ()
main = do
    bs <- BL.getContents
    let etc = eitherDecode bs :: Either String Test
    res <- case etc of
        Left e   -> return $ Just e
        Right tc -> do
            res <- run True defaultEncodeStrategy tc
            case res of
                Pass _ -> return Nothing
                Fail e -> return $ Just e
    print res