module Affection.Subsystems.Class where import Affection.MessageBus.Class import qualified SDL class (Participant s) => Subsystem s where consumeEvents :: s -> [SDL.Event] -> IO [SDL.Event]