vulkan-tutorial/src/Affection/Subsystems/Class.hs

9 lines
195 B
Haskell
Raw Normal View History

2017-11-27 04:27:34 +00:00
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]