module Affection.MessageBus.Message.Class where

-- | Typeclass definition for messages
class Message msg where
  -- | return the time when the message was sent
  msgTime :: msg -> Double