http3 0.0.2 → 0.0.3
raw patch · 4 files changed
+15/−10 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- ChangeLog.md +5/−0
- Network/HTTP3/Control.hs +1/−1
- Network/HTTP3/Server.hs +8/−8
- http3.cabal +1/−1
ChangeLog.md view
@@ -1,5 +1,10 @@ # Revision history for http3 +## 0.0.3++* Fixes for HTTP/3 CONNECT proxy+ [#4](https://github.com/kazu-yamamoto/http3/pull/4)+ ## 0.0.2 * Catching up http2 v4.1.
Network/HTTP3/Control.hs view
@@ -54,7 +54,7 @@ else do (done, st1) <- readIORef ref >>= parse0 bs writeIORef ref st1- if done then loop0 else loop+ if done then loop else loop0 loop = do bs <- recv 1024 if bs == "" then
Network/HTTP3/Server.hs view
@@ -123,14 +123,14 @@ case mvt of Nothing -> QUIC.resetStream strm H3MessageError Just ht@(_,vt) -> do- when (isNothing $ getHeaderValue tokenMethod vt) $ do- QUIC.resetStream strm H3MessageError- when (isNothing $ getHeaderValue tokenScheme vt) $ do- QUIC.resetStream strm H3MessageError- when (isNothing $ getHeaderValue tokenAuthority vt) $ do- QUIC.resetStream strm H3MessageError- when (isNothing $ getHeaderValue tokenPath vt) $ do- QUIC.resetStream strm H3MessageError+ let mMethod = getHeaderValue tokenMethod vt+ mScheme = getHeaderValue tokenScheme vt+ mAuthority = getHeaderValue tokenAuthority vt+ mPath = getHeaderValue tokenPath vt+ case (mMethod, mScheme, mAuthority, mPath) of+ (Just "CONNECT", _, Just _, _) -> return ()+ (Just _, Just _, Just _, Just _) -> return ()+ otherwise -> QUIC.resetStream strm H3MessageError -- fixme: Content-Length refI <- newIORef IInit refH <- newIORef Nothing
http3.cabal view
@@ -1,6 +1,6 @@ cabal-version: 2.4 name: http3-version: 0.0.2+version: 0.0.3 license: BSD-3-Clause license-file: LICENSE maintainer: Kazu Yamamoto <kazu@iij.ad.jp>