@@ -83,13 +83,16 @@ hpackDecodeHeader hdrblk Context{..} = do
8383{-# INLINE checkRequestHeader #-}
8484checkRequestHeader :: ValueTable -> Bool
8585checkRequestHeader reqvt
86+ | just mMethod (== "CONNECT") = mPath == Nothing && mScheme == Nothing
8687 | mStatus /= Nothing = False
8788 | mMethod == Nothing = False
89+ | mScheme == Nothing = False
90+ | mPath == Nothing = False
91+ | mPath == Just "" = False
8892 | mAuthority == Nothing = False
8993 | mConnection /= Nothing = False
9094 | just mTE (/= "trailers") = False
91− | just mMethod (== "CONNECT") = mPath == Nothing && mScheme == Nothing
92− | otherwise = mPath /= Nothing
95+ | otherwise = True
9396 where
9497 mStatus = getHeaderValue tokenStatus reqvt
9598 mScheme = getHeaderValue tokenScheme reqvt