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-12-12 12:12:47 +00:00
|
|
|
import Affection.Types
|
2017-11-27 22:30:11 +00:00
|
|
|
import Affection.MessageBus
|
2017-11-27 04:27:34 +00:00
|
|
|
|
|
|
|
|
import qualified SDL
|
|
|
|
|
|
2017-12-15 16:48:12 +00:00
|
|
|
class SDLSubsystem s us where
|
|
|
|
|
consumeSDLEvents :: s -> [SDL.EventPayload] -> Affection us [SDL.EventPayload]
|
