diff options
| author | Joe Crayne <joe@jerkface.net> | 2018-11-24 21:15:59 -0500 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2018-11-27 22:47:28 -0500 |
| commit | d23984f4de21f5fd994b747a051b7366cd3c1ff0 (patch) | |
| tree | 7efcb99ab120dc0e7a098d17e08959c06918afa1 /src/Crypto/Tox.hs | |
| parent | 326eed10e1e3c9d63bfdfa72dc55e67dcd4e4a0c (diff) | |
Instances for Plain tagged bytestring.
Diffstat (limited to 'src/Crypto/Tox.hs')
| -rw-r--r-- | src/Crypto/Tox.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Crypto/Tox.hs b/src/Crypto/Tox.hs index 9b097c7e..839bd68a 100644 --- a/src/Crypto/Tox.hs +++ b/src/Crypto/Tox.hs | |||
| @@ -199,6 +199,7 @@ putEncrypted :: Encrypted a -> Put | |||
| 199 | putEncrypted (Encrypted bs) = putByteString bs | 199 | putEncrypted (Encrypted bs) = putByteString bs |
| 200 | 200 | ||
| 201 | newtype Plain (s:: * -> Constraint) a = Plain ByteString | 201 | newtype Plain (s:: * -> Constraint) a = Plain ByteString |
| 202 | deriving (Eq,Ord,Show,ByteArrayAccess) | ||
| 202 | 203 | ||
| 203 | 204 | ||
| 204 | decodePlain :: Serialize a => Plain Serialize a -> Either String a | 205 | decodePlain :: Serialize a => Plain Serialize a -> Either String a |