pituicat/src/Affection/MessageBus/Message/Class.hs

7 lines
188 B
Haskell
Raw Normal View History

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