Handle exception on failed send-friendrequest.

1 files changed, 8 insertions, 0 deletions

diff --git a/dht/ToxManager.hs b/dht/ToxManager.hs
index c0717083..1430169f 100644
--- a/dht/ToxManager.hs
+++ b/dht/ToxManager.hs
@@ -682,6 +682,14 @@ startConnecting0 tx them contact reason = do
                                     , friendRequestText = "XMPP friend request"
                                     }
                         sendMessage tr route (mypub,Tox.OnionFriendRequest fr)
+                            `catchIOError` \e -> do
+                                let or = toxOnionRoutes $ txTox tx
+                                    nid = nodeId $ Tox.rendezvousNode $ Tox.rendezvous route
+                                (rid,r)<- resolveRouteFromNodeId or nid
+                                dput XMan $ unlines
+                                  $ [ "Error sending FriendRequest via " ++ show rid ++ " to " ++ show route
+                                    , "  " ++ show e
+                                    ] ++ maybe [] (showRoute "  ") r
             -- Seearch for friend's tox-id rendezvous and use the results to
             -- send our dht key.
             scheduleSearch announcer akey meth them