affection/src/Affection/Subsystems/Class.hs

14 lines
415 B
Haskell
Raw Normal View History

2017-11-27 22:30:11 +00:00
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE AllowAmbiguousTypes #-}
2017-11-27 04:27:34 +00:00
module Affection.Subsystems.Class where
2017-12-12 12:12:47 +00:00
import Affection.Types
2017-11-27 04:27:34 +00:00
import qualified SDL
2018-01-10 15:58:23 +00:00
-- | This class denotes a Subsystem to be part of SDL
2017-12-15 16:48:12 +00:00
class SDLSubsystem s us where
2018-01-10 15:58:23 +00:00
-- | Consume the given 'SDL.EventPayload's and return only those not
-- recognised
2017-12-15 16:48:12 +00:00
consumeSDLEvents :: s -> [SDL.EventPayload] -> Affection us [SDL.EventPayload]