git.iko.soy/typeable/wai
on master help sign in
using close instead of sClose.
commit9885aa979b15dacadde7b29e50b1e95451db7f20 authorKazu Yamamoto <kazu@iij.ad.jp> dateTue 30 May 2017, 16:36 (9 years ago) parent0e55557
2 files changed+4−4
compare with master
unifiedsplit
warp/test/ExceptionSpec.hs+2−2 warp/test/RunSpec.hs+2−2
warp/test/ExceptionSpec.hs+2−2
@@ -14,7 +14,7 @@ import Test.Hspec
1414import Control.Exception
1515import qualified Data.Streaming.Network as N
1616import Control.Concurrent.Async (withAsync)
17−import Network.Socket (sClose)
17+import Network.Socket (close)
1818
1919import HTTP
2020
@@ -24,7 +24,7 @@ main = hspec spec
2424withTestServer :: (Int -> IO a) -> IO a
2525withTestServer inner = bracket
2626 (N.bindRandomPortTCP "127.0.0.1")
27− (sClose . snd)
27+ (close . snd)
2828 $ \(prt, lsocket) -> do
2929 withAsync (runSettingsSocket defaultSettings lsocket testApp)
3030 $ \_ -> inner prt
warp/test/RunSpec.hs+2−2
@@ -19,7 +19,7 @@ import qualified Data.IORef as I
1919import Data.Streaming.Network (bindPortTCP, getSocketTCP, safeRecv)
2020import Network (connectTo, PortID (PortNumber))
2121import Network.HTTP.Types
22−import Network.Socket (sClose)
22+import Network.Socket (close)
2323import Network.Socket.ByteString (sendAll)
2424import Network.Wai
2525import Network.Wai.Handler.Warp
@@ -84,7 +84,7 @@ getPort = do
8484 case esocket of
8585 Left (_ :: IOException) -> RunSpec.getPort
8686 Right socket -> do
87− sClose socket
87+ close socket
8888 return port
8989
9090withApp :: Settings -> Application -> (Int -> IO a) -> IO a