2017-11-29 16:49:56 +00:00
|
|
|
module Affection.MessageBus.Message.Class where
|
|
|
|
|
2018-09-25 05:02:33 +00:00
|
|
|
-- | Typeclass definition for messages
|
2017-11-29 16:49:56 +00:00
|
|
|
class Message msg where
|
2018-09-25 05:02:33 +00:00
|
|
|
-- | return the time when the message was sent
|
2017-12-13 14:19:53 +00:00
|
|
|
msgTime :: msg -> Double
|