control window and chatting

Works!

1 files changed, 5 insertions, 0 deletions

diff --git a/Types.hs b/Types.hs
index bcd1311..78c59a2 100644
--- a/Types.hs
+++ b/Types.hs
@@ -91,13 +91,18 @@ data ControlAction
 	-- ^ sent by the user to in response to SessionKey
 	| SessionKeyRejected PublicKey
 	-- ^ sent by the user to in response to SessionKey
+	| ChatMessage SenderName Val
+	-- ^ sent by user or developer at any time
 	deriving (Show, Generic)
 
+type SenderName = Val
+
 instance DataSize ControlAction where
 	dataSize (Rejected a) = dataSize a
 	dataSize (SessionKey k) = dataSize k
 	dataSize (SessionKeyAccepted k) = dataSize k
 	dataSize (SessionKeyRejected k) = dataSize k
+	dataSize (ChatMessage s m) = dataSize s + dataSize m
 
 data Hash = Hash
 	{ hashMethod :: HashMethod