fix exception in main loop thread

2023-10-18 19:47:58 +03:00 · 2023-10-18 19:47:58 +03:00 · bac3f99588
parent 328275d14e
commit bac3f99588
1 changed files with 1 additions and 0 deletions
--- 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