diff options
Diffstat (limited to 'Types.hs')
| -rw-r--r-- | Types.hs | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -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 |