nek0
58fd609095
git-subtree-dir: extern/affection git-subtree-mainline:9e89962af0
git-subtree-split:fc6bfa1ca5
14 lines
409 B
Haskell
14 lines
409 B
Haskell
{-# 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 where
|
|
-- | Consume the given 'SDL.EventPayload's and return only those not
|
|
-- recognised
|
|
consumeSDLEvents :: s -> [SDL.EventPayload] -> Affection [SDL.EventPayload]
|