{-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE AllowAmbiguousTypes #-} module Affection.Subsystems.Class where import Affection.MessageBus import qualified SDL class (Message m, Participant s m) => Subsystem s m where consumeEvents :: s -> [SDL.Event] -> IO [SDL.Event]