diff options
| author | joe <joe@jerkface.net> | 2017-09-15 03:01:48 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-09-15 03:01:48 -0400 |
| commit | de0296e5c8563ea2dc7216142e474eb4e4cb46d6 (patch) | |
| tree | a5f665a9cbcf68ba8f9d92d63bc0d2aad3a55ee5 /ToxCrypto.hs | |
| parent | f9ca5de790ea7d430b70471f476ad7b1823b8c0a (diff) | |
Removed Obsolete ToxMessage module.
Diffstat (limited to 'ToxCrypto.hs')
| -rw-r--r-- | ToxCrypto.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ToxCrypto.hs b/ToxCrypto.hs index 7797da70..9f39f1e1 100644 --- a/ToxCrypto.hs +++ b/ToxCrypto.hs | |||
| @@ -87,7 +87,7 @@ instance Data Auth where | |||
| 87 | -- Well, this is a little wonky... XXX | 87 | -- Well, this is a little wonky... XXX |
| 88 | gunfold k z c = k (z (Auth . Poly1305.Auth . (BA.convert :: ByteString -> Bytes))) | 88 | gunfold k z c = k (z (Auth . Poly1305.Auth . (BA.convert :: ByteString -> Bytes))) |
| 89 | toConstr _ = con_Auth | 89 | toConstr _ = con_Auth |
| 90 | dataTypeOf _ = mkDataType "ToxMessage" [con_Auth] | 90 | dataTypeOf _ = mkDataType "ToxCrypto" [con_Auth] |
| 91 | con_Auth :: Constr | 91 | con_Auth :: Constr |
| 92 | con_Auth = mkConstr (dataTypeOf (Auth (error "con_Auth"))) "Auth" [] Prefix | 92 | con_Auth = mkConstr (dataTypeOf (Auth (error "con_Auth"))) "Auth" [] Prefix |
| 93 | instance Serialize Auth where | 93 | instance Serialize Auth where |