From f7d21bb8665a6c9d9fb956d0bec1dd66d9dd70f1 Mon Sep 17 00:00:00 2001 From: Karl Knutsson Date: Wed, 2 Jun 2021 09:28:43 +0200 Subject: [PATCH] Update network-mux/demo/cardano-ping.hs Co-authored-by: Marcin Szamotulski --- network-mux/demo/cardano-ping.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/network-mux/demo/cardano-ping.hs b/network-mux/demo/cardano-ping.hs index b68ea4745e7..32e22a6d244 100644 --- a/network-mux/demo/cardano-ping.hs +++ b/network-mux/demo/cardano-ping.hs @@ -420,7 +420,7 @@ pingClient tracer Options{quiet, magic, json, maxCount} peer = bracket -> Word32 -> IO () keepAlive _ _ _ _ _ cookie | cookie == maxCount = return () - keepAlive bearer timeoutfn peerStr version td cookie = do + keepAlive bearer timeoutfn peerStr version td !cookie = do let cookie16 = fromIntegral cookie !t_s <- write bearer timeoutfn $ wrap keepaliveNum InitiatorDir (keepAliveReq version cookie16) (!msg, !t_e) <- nextMsg bearer timeoutfn keepaliveNum