affection/src/Affection/Subsystems/Class.hs
2018-01-10 16:58:23 +01:00

15 lines
443 B
Haskell

{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE AllowAmbiguousTypes #-}
module Affection.Subsystems.Class where
import Affection.Types
import Affection.MessageBus
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 us [SDL.EventPayload]