pituicat/src/Affection/Subsystems/Class.hs

{-# 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]
classy messup 2017-11-27 22:30:11 +00:00			`{-# LANGUAGE MultiParamTypeClasses #-}`
			`{-# LANGUAGE AllowAmbiguousTypes #-}`
new subsystem 2017-11-27 04:27:34 +00:00			`module Affection.Subsystems.Class where`

classy messup 2017-11-27 22:30:11 +00:00			`import Affection.MessageBus`
new subsystem 2017-11-27 04:27:34 +00:00
			`import qualified SDL`

classy messup 2017-11-27 22:30:11 +00:00			`class (Message m, Participant s m) => Subsystem s m where`
new subsystem 2017-11-27 04:27:34 +00:00			`consumeEvents :: s -> [SDL.Event] -> IO [SDL.Event]`