affection-0.0.0.7: src/Affection/Subsystems/Class.hs

{-# 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]