{-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE AllowAmbiguousTypes #-} module Affection.Subsystems.Class where import Affection.Types import qualified SDL -- | This class denotes a Subsystem to be part of SDL class SDLSubsystem s us where -- | Consume the given 'SDL.EventPayload's and return only those not -- recognised consumeSDLEvents :: s -> [SDL.EventPayload] -> Affection [SDL.EventPayload]