Update network-mux/demo/cardano-ping.hs

Co-authored-by: Marcin Szamotulski <profunctor@pm.me>
IntersectMBO · Jun 2, 2021 · f7d21bb · f7d21bb
1 parent 1249f6f
commit f7d21bb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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