1 files changed, 2 insertions, 1 deletions

diff --git a/src/Crypto/Tox.hs b/src/Crypto/Tox.hs
index bd4cdfba..d418f504 100644
--- a/src/Crypto/Tox.hs
+++ b/src/Crypto/Tox.hs
@@ -582,7 +582,8 @@ data TransportCrypto = TransportCrypto
     }
 
 getPublicKey :: S.Get PublicKey
-getPublicKey = throwCryptoError . publicKey <$> S.getBytes 32
+getPublicKey = eitherCryptoError . publicKey <$> S.getBytes 32
+                >>= either (fail . show) return
 
 putPublicKey :: PublicKey -> S.Put
 putPublicKey bs = S.putByteString $ BA.convert bs