2 files changed, 6 insertions, 5 deletions

diff --git a/examples/AliceBob.hs b/examples/AliceBob.hs
index a7ec26f1..529b92d5 100644
--- a/examples/AliceBob.hs
+++ b/examples/AliceBob.hs
@@ -4,6 +4,7 @@ module AliceBob
     , PublicKey
     , CryptoFailable(..)
     , secretKey
+    , publicKey
     , toPublic
     ) where
 
@@ -11,7 +12,6 @@ import Crypto.PubKey.Curve25519 (SecretKey,PublicKey,secretKey,publicKey,toPubli
 import Crypto.Error
 import Data.Word
 import Data.ByteString as B
-import qualified Data.ByteArray as BA
 
 
 alicesk_bytes :: [Word8]
@@ -27,10 +27,10 @@ CryptoPassed alicesk = secretKey $ B.pack alicesk_bytes
 
 alicepk_bytes :: [Word8]
 alicepk_bytes =
-    [ 0x85,0x20,0xf0,0x09,0x89,0x30,0xa7,0x54
-    , 0x74,0x8b,0x7d,0xdc,0xb4,0x3e,0xf7,0x5a
-    , 0x0d,0xbf,0x3a,0x0d,0x26,0x38,0x1a,0xf4
-    , 0xeb,0xa4,0xa9,0x8e,0xaa,0x9b,0x4e,0x6a
+    [0x85,0x20,0xf0,0x09,0x89,0x30,0xa7,0x54
+    ,0x74,0x8b,0x7d,0xdc,0xb4,0x3e,0xf7,0x5a
+    ,0x0d,0xbf,0x3a,0x0d,0x26,0x38,0x1a,0xf4
+    ,0xeb,0xa4,0xa9,0x8e,0xaa,0x9b,0x4e,0x6a
     ]
 
 alicepk :: PublicKey
diff --git a/src/Network/Tox/Onion/Handlers.hs b/src/Network/Tox/Onion/Handlers.hs
index 0d8a9151..a16508cd 100644
--- a/src/Network/Tox/Onion/Handlers.hs
+++ b/src/Network/Tox/Onion/Handlers.hs
@@ -283,6 +283,7 @@ sendOnion getTimeout client req oaddr unwrap =
     -- Four tries and then we tap out.
     flip fix 4 $ \loop n -> do
     mb <- QR.sendQuery client (announceSerializer getTimeout) req oaddr
+    forM_ mb $ \r -> dput XAnnounce $ show (onionNodeInfo oaddr) ++ " sent response: " ++ show r
     maybe (if n>0 then loop $! n - 1 else return Nothing)
           (return . Just . unwrap (onionNodeInfo oaddr))
           $ join mb