9 lines
195 B
Haskell
9 lines
195 B
Haskell
|
module Affection.Subsystems.Class where
|
||
|
|
|
||
|
|
import Affection.MessageBus.Class
|
||
|
|
|
||
|
|
import qualified SDL
|
||
|
|
|
||
|
|
class (Participant s) => Subsystem s where
|
||
|
|
consumeEvents :: s -> [SDL.Event] -> IO [SDL.Event]
|