pituicat/src/Affection/Subsystems/Class.hs
2017-12-13 15:19:53 +01:00

12 lines
333 B
Haskell

{-# 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.EventPayload] -> Affection sd [SDL.EventPayload]