pituicat/src/Affection/Subsystems/Class.hs

11 lines
280 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-11-27 22:30:11 +00:00
import Affection.MessageBus
2017-11-27 04:27:34 +00:00
import qualified SDL
2017-11-27 22:30:11 +00:00
class (Message m, Participant s m) => Subsystem s m where
2017-11-27 04:27:34 +00:00
consumeEvents :: s -> [SDL.Event] -> IO [SDL.Event]