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