pituicat/src/Affection/Subsystems/Class.hs

12 lines
333 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 22:30:11 +00:00
import Affection.MessageBus
2017-11-27 04:27:34 +00:00
import qualified SDL
2017-12-12 12:12:47 +00:00
class (Message m, Participant s m) => SDLSubsystem s m where
2017-12-13 14:19:53 +00:00
consumeSDLEvents :: s -> [SDL.EventPayload] -> Affection sd [SDL.EventPayload]