{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE AllowAmbiguousTypes #-}
module Affection.Subsystems.Class where

import Affection.Types
import Affection.MessageBus

import qualified SDL

class SDLSubsystem s us where
  consumeSDLEvents :: s -> [SDL.EventPayload] -> Affection us [SDL.EventPayload]