1 files changed, 10 insertions, 0 deletions

diff --git a/src/Network/Tox/Crypto/Transport.hs b/src/Network/Tox/Crypto/Transport.hs
index ea8565b2..68e3d8e1 100644
--- a/src/Network/Tox/Crypto/Transport.hs
+++ b/src/Network/Tox/Crypto/Transport.hs
@@ -235,8 +235,18 @@ instance Serialize CryptoData where
 -- The Enum instance on 'UserStatus' is not arbitrary.  It corresponds
 -- to on-the-wire id numbers.
 data UserStatus = Online | Away | Busy deriving (Show,Read,Eq,Ord,Enum)
+instance Serialize UserStatus where
+   get = do
+        x <- get :: Get Word8
+        return (toEnum8 x)
+   put x = put (fromEnum8 x)
 
 data TypingStatus = NotTyping | Typing deriving (Show,Read,Eq,Ord,Enum)
+instance Serialize TypingStatus where
+   get = do
+        x <- get :: Get Word8
+        return (toEnum8 x)
+   put x = put (fromEnum8 x :: Word8)
 
 unpadCryptoMsg :: CryptoMessage -> CryptoMessage
 unpadCryptoMsg x@(TwoByte Padding (toEnum8 -> mid))