From bac3f99588b6f445efe15dc2449f3a728f3d7b71 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Wed, 18 Oct 2023 19:47:58 +0300
Subject: [PATCH] fix exception in main loop thread

---
 hbs2-peer/app/PeerMain.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/hbs2-peer/app/PeerMain.hs b/hbs2-peer/app/PeerMain.hs
index 52f6cae6..dacfd09e 100644
--- a/hbs2-peer/app/PeerMain.hs
+++ b/hbs2-peer/app/PeerMain.hs
@@ -1064,6 +1064,7 @@ runPeer opts = U.handle (\e -> myException e
       ]
 
   link rpcProto
+  link loop
 
   void $ waitAnyCancel $ w <> [ udp
                               , loop