diff options
| author | James Crayne <jim.crayne@gmail.com> | 2018-05-29 02:03:41 +0000 |
|---|---|---|
| committer | James Crayne <jim.crayne@gmail.com> | 2018-05-29 02:03:41 +0000 |
| commit | efc45ad4c240529913e4f7d4f0c9f880cba6c0f9 (patch) | |
| tree | 3abd53a933a6dd068a77f18d80623b314c1ecdbc /src/Crypto/Tox.hs | |
| parent | 4728116433ddd449dc4c654847ed2f35a38605db (diff) | |
Show instance for SymmetricKey, more debug prints
Diffstat (limited to 'src/Crypto/Tox.hs')
| -rw-r--r-- | src/Crypto/Tox.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Crypto/Tox.hs b/src/Crypto/Tox.hs index 9b7e82c0..acb98e3e 100644 --- a/src/Crypto/Tox.hs +++ b/src/Crypto/Tox.hs | |||
| @@ -515,6 +515,9 @@ newSecretsCache = atomically (SecretsCache <$> newTVar MM.empty) | |||
| 515 | 515 | ||
| 516 | newtype SymmetricKey = SymmetricKey ByteString | 516 | newtype SymmetricKey = SymmetricKey ByteString |
| 517 | 517 | ||
| 518 | instance Show SymmetricKey where | ||
| 519 | show (SymmetricKey bs) = bin2base64 bs | ||
| 520 | |||
| 518 | data TransportCrypto = TransportCrypto | 521 | data TransportCrypto = TransportCrypto |
| 519 | { transportSecret :: SecretKey | 522 | { transportSecret :: SecretKey |
| 520 | , transportPublic :: PublicKey | 523 | , transportPublic :: PublicKey |