git.iko.soy/typeable/wai
on master help sign in
accepting hlint suggestions.
commitdd79377f4203a67ac096af6e9ca2b492747095cf authorKazu Yamamoto <kazu@iij.ad.jp> dateWed 22 Nov 2017, 17:43 (9 years ago) parentc7c77d0
2 files changed+7−7
compare with master
unifiedsplit
warp/Network/Wai/Handler/Warp/HTTP2/HPACK.hs+6−6 warp/Network/Wai/Handler/Warp/HTTP2/Sender.hs+1−1
warp/Network/Wai/Handler/Warp/HTTP2/HPACK.hs+6−6
@@ -87,13 +87,13 @@ hpackDecodeHeader hdrblk Context{..} = do
8787{-# INLINE checkRequestHeader #-}
8888checkRequestHeader :: ValueTable -> Bool
8989checkRequestHeader reqvt
90− | just mMethod (== "CONNECT") = mPath == Nothing && mScheme == Nothing
91− | mStatus /= Nothing = False
92− | mMethod == Nothing = False
93− | mScheme == Nothing = False
94− | mPath == Nothing = False
90+ | just mMethod (== "CONNECT") = isNothing mPath && isNothing mScheme
91+ | isJust mStatus = False
92+ | isNothing mMethod = False
93+ | isNothing mScheme = False
94+ | isNothing mPath = False
9595 | mPath == Just "" = False
96− | mConnection /= Nothing = False
96+ | isJust mConnection = False
9797 | just mTE (/= "trailers") = False
9898 | otherwise = True
9999 where
warp/Network/Wai/Handler/Warp/HTTP2/Sender.hs+1−1
@@ -56,7 +56,7 @@ waitStreamWindowSize Stream{streamWindow} = atomically $ do
5656waitStreaming :: TBQueue a -> IO ()
5757waitStreaming tbq = atomically $ do
5858 isEmpty <- isEmptyTBQueue tbq
59− check (isEmpty == False)
59+ check (not isEmpty)
6060
6161data Switch = C Control
6262 | O (StreamId,Precedence,Output)