pituicat/src/Affection/Subsystems/Class.hs
2017-11-27 23:30:11 +01:00

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]