From c0d2d74524e015f9bbf339ba490764265156ae30 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 1 Aug 2026 21:18:27 +0200
Subject: Mark WebSocket connection as reliable trasport

---
 src/WebSocket.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/WebSocket.hs b/src/WebSocket.hs
index 4179cfa..71ff6d6 100644
--- a/src/WebSocket.hs
+++ b/src/WebSocket.hs
@@ -45,6 +45,7 @@ instance Show Connection where
 instance PeerAddressType Connection where
     sendBytesToAddress = sendMessage
     connectionToAddressClosed = closeConnection
+    isReliableTransport _ = True
 
 startClient :: Server -> String -> Int -> String -> (Connection -> IO ()) -> IO ()
 startClient server addr port path fun = do
-- 
cgit v1.2.3