Finish "session" and "netcrypto" todo stubs

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Network/Tox/Crypto/Transport.hs b/src/Network/Tox/Crypto/Transport.hs
index 40288502..141ef792 100644
--- a/src/Network/Tox/Crypto/Transport.hs
+++ b/src/Network/Tox/Crypto/Transport.hs
@@ -204,9 +204,9 @@ 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,Eq,Ord,Enum)
+data UserStatus = Online | Away | Busy deriving (Show,Read,Eq,Ord,Enum)
 
-data TypingStatus = NotTyping | Typing deriving (Show,Eq,Ord,Enum)
+data TypingStatus = NotTyping | Typing deriving (Show,Read,Eq,Ord,Enum)
 
 data CryptoMessage
         = OneByte  { msgID :: MessageID }