http3 0.1.0 → 0.1.1

raw patch · 6 files changed

+12/−10 lines, 6 filesdep ~time-managerPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: time-manager

API changes (from Hackage documentation)

Files

ChangeLog.md +4/−0
Network/HTTP3/Context.hs +1/−3
Network/QPACK/HeaderBlock/Encode.hs +1/−1
Network/QPACK/Table/Dynamic.hs +1/−1
http3.cabal +1/−1
test/QPACK/QIF2Spec.hs +4/−4

ChangeLog.md view

@@ -1,5 +1,9 @@ # Revision history for http3 +## 0.1.1++* Removing a debug logging to stdout.+ ## 0.1.0  * QPACK encoder now supports the dynamic table.

Network/HTTP3/Context.hs view

@@ -80,9 +80,7 @@     abortWith :: ApplicationProtocolError -> E.SomeException -> IO ()     abortWith aerr se         | isAsyncException se = E.throwIO se-        | otherwise = do-            print se-            abortConnection conn aerr ""+        | otherwise = abortConnection conn aerr ""  isAsyncException :: E.Exception e => e -> Bool isAsyncException e =

Network/QPACK/HeaderBlock/Encode.hs view

@@ -296,7 +296,7 @@                 ridx <- toInsRelativeIndex ai <$> getInsertionPoint dyntbl                 let ins = Duplicate ridx                 encodeEI wbuf2 True ins-                qpackDebug dyntbl $ putStrLn $ (show ins) ++ " = " ++ show ai+                qpackDebug dyntbl $ putStrLn $ show ins ++ " = " ++ show ai                 nai <- tailDuplication dyntbl                 qpackDebug dyntbl $ putStrLn $ "Duplicate: " ++ show ai ++ " -> " ++ show nai

Network/QPACK/Table/Dynamic.hs view

@@ -537,7 +537,7 @@  ---------------------------------------------------------------- -canInsertEntry :: DynamicTable -> Entry -> Maybe (AbsoluteIndex) -> IO Bool+canInsertEntry :: DynamicTable -> Entry -> Maybe AbsoluteIndex -> IO Bool canInsertEntry DynamicTable{..} ent mai = do     let siz = entrySize ent     tblsiz <- readTVarIO tableSize

http3.cabal view

@@ -1,6 +1,6 @@ cabal-version:      2.4 name:               http3-version:            0.1.0+version:            0.1.1 license:            BSD-3-Clause license-file:       LICENSE maintainer:         Kazu Yamamoto <kazu@iij.ad.jp>

test/QPACK/QIF2Spec.hs view

@@ -35,22 +35,22 @@     describe "QIF server" $ do         it "handles dynamic table of 0-bytes" $ do             let size = 0-            E.bracket (setup server size) (teardown) $+            E.bracket (setup server size) teardown $                 \_ -> runClient size     describe "QIF server" $ do         it "handles dynamic table of 256-bytes" $ do             let size = 256-            E.bracket (setup server size) (teardown) $+            E.bracket (setup server size) teardown $                 \_ -> runClient size     describe "QIF server" $ do         it "handles dynamic table of 512-bytes" $ do             let size = 512-            E.bracket (setup server size) (teardown) $+            E.bracket (setup server size) teardown $                 \_ -> runClient size     describe "QIF server" $ do         it "handles dynamic table of 4096-bytes" $ do             let size = 4096-            E.bracket (setup server size) (teardown) $+            E.bracket (setup server size) teardown $                 \_ -> runClient size  runClient :: Int -> IO ()