11 lines
280 B
Haskell
11 lines
280 B
Haskell
{-# LANGUAGE MultiParamTypeClasses #-}
|
|
{-# LANGUAGE AllowAmbiguousTypes #-}
|
|
module Affection.Subsystems.Class where
|
|
|
|
import Affection.MessageBus
|
|
|
|
import qualified SDL
|
|
|
|
class (Message m, Participant s m) => Subsystem s m where
|
|
consumeEvents :: s -> [SDL.Event] -> IO [SDL.Event]
|