Tox: improved data-to-route and onion debug prints.

1 files changed, 7 insertions, 4 deletions

diff --git a/src/Network/Tox/Onion/Transport.hs b/src/Network/Tox/Onion/Transport.hs
index d604a5c8..864e831f 100644
--- a/src/Network/Tox/Onion/Transport.hs
+++ b/src/Network/Tox/Onion/Transport.hs
@@ -891,12 +891,15 @@ parseDataToRoute crypto (OnionToRouteResponse dta, od) = do
                     $ Rendezvous (rendezvousPublic crypto) $ onionNodeInfo od )
       r = either (const $ Right (OnionToRouteResponse dta,od)) Left e
   -- parseDataToRoute OnionToRouteResponse decipherAndAuth: auth fail
+  case e of
+    Left _  -> hPutStrLn stderr $ "Failed keys: " ++ show (map (key2id . snd) ks)
+    Right _ -> return ()
   hPutStrLn stderr $ unlines
         [ "parseDataToRoute " ++ either id (const "Right") e
-        , "       crypto inner.me =" ++ either id (\(pk,_,_) -> show $ key2id pk) eInner
-        , "              inner.you=" ++ either id (show . key2id . dataFromKey) eOuter
-        , "              outer.me =" ++ show (key2id $ rendezvousPublic crypto)
-        , "              outer.you=" ++ show (key2id $ senderKey dta)
+        , "       crypto inner.me   = " ++ either id (\(pk,_,_) -> show $ key2id pk) eInner
+        , "              inner.them = " ++ either id (show . key2id . dataFromKey) eOuter
+        , "              outer.me   = " ++ show (key2id $ rendezvousPublic crypto)
+        , "              outer.them = " ++ show (key2id $ senderKey dta)
         ]
   return r
 parseDataToRoute _ msg = return $ Right msg