1 files changed, 2 insertions, 2 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