Updated error messages referring to non-extant functions.

2 files changed, 4 insertions, 4 deletions

diff --git a/src/Crypto/Tox.hs b/src/Crypto/Tox.hs
index 71aa99c4..0a7f07c3 100644
--- a/src/Crypto/Tox.hs
+++ b/src/Crypto/Tox.hs
@@ -218,7 +218,7 @@ decryptSymmetric (SymmetricKey symmkey) (Nonce24 n24) (Encrypted bs) = do
     let (ds, symm') = Symmetric.decrypt bs'' symm
         auth = Symmetric.finalize symm'
     if BA.convert auth /= mac
-        then Left "symmetricDecipher: Auth fail."
+        then Left "Symmetric decryption failed.  Incorrect key material?"
         else return $ Plain ds
 
 encryptSymmetric :: SymmetricKey -> Nonce24 -> Plain s x -> Encrypted x
@@ -237,7 +237,7 @@ data State = State Poly1305.State XSalsa.State
 decrypt :: State -> Encrypted a -> Either String (Plain s a)
 decrypt (State hash crypt) ciphertext
     | (a == mac) = Right (Plain m)
-    | otherwise  = Left "decipherAndAuth: auth fail"
+    | otherwise  = Left "Asymmetric decryption failed.  Incorrect key material?"
   where
     (mac, c) = authAndBytes ciphertext
     m = fst . XSalsa.combine crypt $ c
diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index 5bd23da8..634b0db1 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -490,13 +490,13 @@ forkTox tox = do
            , bootstrap (DHT.refresher6 $ toxRouting tox)
            )
 
--- TODO: Don't export this.
+-- TODO: Don't export this.  The exported interface is 'toxAnnounceToLan'.
 announceToLan :: Socket -> NodeId -> IO ()
 announceToLan sock nid = do
     addrs <- broadcastAddrs
     forM_ addrs $ \addr -> do
     (broadcast_info:_) <- getAddrInfo (Just defaultHints { addrFlags = [AI_NUMERICHOST], addrSocketType = Datagram })
-                                      (Just addr) -- TODO: Detect broadcast address.
+                                      (Just addr)
                                       (Just "33445")
     let broadcast = addrAddress broadcast_info
         bs = S.runPut $ DHT.putMessage (DHT.DHTLanDiscovery nid)