@@ -15,10 +15,10 @@ main :: IO ()
1515main = do
1616 --start server shared across benchmarks- gather stats on round-trip requests-responses
1717 portReadyMVar <- newEmptyMVar
18− server <- async (serve benchmarkServerMessageHandlers localHostAddr 0 (Just portReadyMVar))
18+ server <- async (serve benchmarkServerMessageHandlers () localHostAddr 0 (Just portReadyMVar))
1919 --wait for server to be ready
2020 (SockAddrInet port _) <- takeMVar portReadyMVar
21− clientConn <- connect localHostAddr port
21+ clientConn <- connect [] localHostAddr port
2222
2323 _ <- syncWaitRequest clientConn 100
2424 let syncWait ms = nfIO (syncWaitRequest clientConn ms)
@@ -53,12 +53,12 @@ data WaitMillisecondsResp = WaitMillisecondsResp
5353 deriving (Generic, Show, Eq)
5454 deriving Serialise via WineryVariant WaitMillisecondsResp
5555
56−benchmarkServerMessageHandlers :: MessageHandlers
56+benchmarkServerMessageHandlers :: MessageHandlers a
5757benchmarkServerMessageHandlers =
58− [RequestHandler $ \(WaitMillisecondsReq ms) -> do
58+ [RequestHandler $ \_ (WaitMillisecondsReq ms) -> do
5959 threadDelay (1000 * ms)
6060 pure WaitMillisecondsResp,
61− RequestHandler $ \(WaitByteStringReq bs) ->
61+ RequestHandler $ \_ (WaitByteStringReq bs) ->
6262 pure bs
6363 ]
6464