From 0a9f9458c2cd4087deb3a13189f2661d58c1aca7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 1 Aug 2026 19:40:12 +0200
Subject: Mark WebSocket transport as reliable

---
 main/WebSocket.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'main')

diff --git a/main/WebSocket.hs b/main/WebSocket.hs
index 79cb141..827b3fe 100644
--- a/main/WebSocket.hs
+++ b/main/WebSocket.hs
@@ -39,6 +39,8 @@ instance PeerAddressType WebSocketAddress where
             | Just WS.ConnectionClosed <- fromException e -> return ()
             | otherwise -> throwIO e
 
+    isReliableTransport _ = True
+
 
 data WebSocketOptions = WebSocketOptions
     { wsAddress :: String
-- 
cgit v1.2.3