module Affection.MessageBus.Message where class Message msg where msgPayload :: msg -> a