34b4bdb · typeable/wai

git.iko.soy/typeable/wai

suggestions from hlint.

commit34b4bdbb96520f08eec8e111a8a5cfb0ca1a7abd authorKazu Yamamoto <kazu@iij.ad.jp> dateMon 17 Aug 2015, 12:38 (11 years ago) parentcc4c1bc

6 files changed+9−9

compare with master

unifiedsplit

warp/Network/Wai/Handler/Warp/HTTP2/HPACK.hs+1−1 warp/Network/Wai/Handler/Warp/HTTP2/Manager.hs+1−1 warp/Network/Wai/Handler/Warp/HTTP2/Receiver.hs+1−1 warp/Network/Wai/Handler/Warp/HTTP2/Sender.hs+1−1 warp/Network/Wai/Handler/Warp/HTTP2/Types.hs+3−3 warp/Network/Wai/Handler/Warp/HTTP2/Worker.hs+2−2

warp/Network/Wai/Handler/Warp/HTTP2/HPACK.hs+1−1

@@ -1,5 +1,5 @@

11{-# LANGUAGE OverloadedStrings #-}

2−{-# LANGUAGE RecordWildCards, NamedFieldPuns #-}

2+{-# LANGUAGE NamedFieldPuns #-}

44module Network.Wai.Handler.Warp.HTTP2.HPACK where

warp/Network/Wai/Handler/Warp/HTTP2/Manager.hs+1−1

@@ -51,7 +51,7 @@ start = do

5151 where

5252 next = do

5353 action <- readIORef ref

54− newtid <- forkIO $ action

54+ newtid <- forkIO action

5555 add tset newtid

5656 go q tset ref

5757

warp/Network/Wai/Handler/Warp/HTTP2/Receiver.hs+1−1

@@ -1,5 +1,5 @@

11{-# LANGUAGE OverloadedStrings #-}

2−{-# LANGUAGE RecordWildCards, NamedFieldPuns #-}

2+{-# LANGUAGE NamedFieldPuns #-}

33{-# LANGUAGE BangPatterns #-}

44{-# LANGUAGE CPP #-}

55{-# LANGUAGE PatternGuards #-}

warp/Network/Wai/Handler/Warp/HTTP2/Sender.hs+1−1

@@ -1,6 +1,6 @@

11{-# LANGUAGE OverloadedStrings #-}

22{-# LANGUAGE BangPatterns, CPP #-}

3−{-# LANGUAGE RecordWildCards, NamedFieldPuns #-}

3+{-# LANGUAGE NamedFieldPuns #-}

55module Network.Wai.Handler.Warp.HTTP2.Sender (frameSender) where

warp/Network/Wai/Handler/Warp/HTTP2/Types.hs+3−3

@@ -1,5 +1,5 @@

11{-# LANGUAGE OverloadedStrings, CPP #-}

2−{-# LANGUAGE RecordWildCards, NamedFieldPuns #-}

2+{-# LANGUAGE NamedFieldPuns #-}

44module Network.Wai.Handler.Warp.HTTP2.Types where

@@ -193,12 +193,12 @@ newStream sid win = Stream sid <$> newIORef Idle

193193

194194opened :: Context -> Stream -> IO ()

195195opened Context{concurrency} Stream{streamState} = do

196− atomicModifyIORef' concurrency (\x -> ((x+1),()))

196+ atomicModifyIORef' concurrency (\x -> (x+1,()))

197197 writeIORef streamState (Open JustOpened)

198198

199199closed :: Context -> Stream -> ClosedCode -> IO ()

200200closed Context{concurrency} Stream{streamState} cc = do

201− atomicModifyIORef' concurrency (\x -> ((x-1),()))

201+ atomicModifyIORef' concurrency (\x -> (x-1,()))

202202 writeIORef streamState (Closed cc)

203203

204204----------------------------------------------------------------

warp/Network/Wai/Handler/Warp/HTTP2/Worker.hs+2−2

@@ -1,6 +1,6 @@

11{-# LANGUAGE DeriveDataTypeable #-}

2−{-# LANGUAGE RecordWildCards, NamedFieldPuns #-}

3−{-# LANGUAGE PatternGuards, BangPatterns #-}

2+{-# LANGUAGE NamedFieldPuns #-}

3+{-# LANGUAGE PatternGuards #-}

44{-# LANGUAGE CPP #-}

66module Network.Wai.Handler.Warp.HTTP2.Worker (