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

12 lines
319 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.Event] -> Affection sd [SDL.Event]