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
     -- Well, this is a little wonky... XXX
     gunfold k z c = k (z (Auth . Poly1305.Auth . (BA.convert :: ByteString -> Bytes)))
     toConstr _ = con_Auth
-    dataTypeOf _ = mkDataType "ToxMessage" [con_Auth]
+    dataTypeOf _ = mkDataType "ToxCrypto" [con_Auth]
 con_Auth :: Constr
 con_Auth = mkConstr (dataTypeOf (Auth (error "con_Auth"))) "Auth" [] Prefix
 instance Serialize Auth where